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% C O MME N T D A TE ? 1 A UG 7 2 



L AT E ST A ND GRFATFST/ 
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00000020 

000001 no 



% COMMENT DATE 14 DEC 73 : RtiVlSEt; TQ HaNuLL EXCEPTION CONDITIONS; OOOUOllO 
% 0C0U0120 

% VARinuS REPHRTS ARE P^<^DUCED BYThl.S PPHGRaM KFYEC QN THE CUMMON V aLU£.00000200 



X THE COMMON VALUE HAS A 

% THr UNITS DIGIT SPECIF 

-1 1 g SPn INPUT 



N INPUT PART AND AN OUTPUT PARTt.. 
IES THE INPUT MODE AS FOLLOWS! 



00000210 
00000300 

nonofi3io 



x 2 =» card input 
% The Tens digit specifi 
-x o s gener a t e a ny a 



ES WHICH REf^URTS Tu GE^E^^ATE AS FOLLOWS; 
NP AL L R L POHTS . 



00000320 
00000400 
00000 4 10 



X 1 « CHRONOLOGICAL 
X 2 a SUMMARY REPORT 
X » * REAL TIMg TAPE 



LISTING REPORT ONLY. 
S FOR PERIPHERIAL UNIT E><RaHS ONLY. 
WRITE FAIIUHE REPORT ONLY, 



00000420 

00000430 
00000440 



X 8 s ONLINE CONFIDE 
X TO GENERATE COMBINATIU 
X f^OR EACH REPORT DE S IR E D^ - FOR EXAMPLE 



NCE TEST KEijULT SUMMARIES ONLY. 
NS OF REPORTS, SIMPLY ADD UP THE TENS DIGIT 
i 



00000450 
00000500 
)000i 



-CXU 



l^44J- 



X 3 « SUMMARY REPORT 
X 5 » CHRONOLOGICAL 
SUMMARY REPORT 



S AMD CHttONuLOQICAL LISTING REPORT,., 

LISTING REPORT AND REAL HME TAPE TEST REPORT.. 

S A ND RE AL T I ME T A PE TE S T REPORT ..,. 



00000520 
,00000530 

00000540 



X 10 » SUMMARY REPORTS OF PEHlPHEHIAL UiMiT AND ONLINE MAINT ENTR I£S . . O0OUO550 
X 00000600 

% Tq mAK£ the PROGRAM FASTEW TO WUN.FQR mHtM\l TLHhlNATlQN RRCiCFUURFS , 00000610 



X THE FOLLOWING MODIFICATIONS HAVE BEEN MADE TO THE COMMON VALUES! 

X ■ 

% If the PR OGRA M IS Fx FCl JTEn W I TH A USFRCOOE O F " S I TF ." A N D 



00000612 
00000614 

nQQon<si6 



X THE COMMON VALUE IS OF 
X COMMON =0 OR 
% THEN THF FQILOWTNG fPt 



THE FORM? 
COMMON s MMDD 
RATIONS OCCUR; 



CMMsMONiH, DO=DAY) 



00000618 
00000620 
QQ0QQ622 



X CIF THE USERCQOE IS NO 
X THEN THE NORMAL QPERAT 

■■X. : ...■ ..: ;: . ■■.. 



T "SITE" ANU COMMON »0 OH COMMON* MMOO 
ION OF'THE COMMON VALUES IS USED) 
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00000626 
QQ0006gfl 



X I) ONLY THE SUMMARY REPORTS FObi PLHIPHERIAl UNiT ERRORS 
X ARE PRODUCED* 



00000632 

00000634 

-Q 00006 35 



X 2) WITH A COMMON »AlU£ 
X ON THE DAY OF EXECUTIO 

X ARE yseo> 



OF 0^ ALL MAINTENANCE LOtS CREATED 
N TOGETHER WiTH THE CURRIiNT MAlNT/LOG 



00000636 
00000638 
OQ000640 



X 

X 3) IF THE 

X LOG FILES 



COMMON VALUE 
CREATED ON T 



MMDD IS USED, ONLY THE MAINTENANCE 
HE DATE "MMUD" WHICH ARE ON THE DISK 



00000642 
00000644 
00000646 



X ARE USED, 

X 

X SAMPLE EXECUTE 



00000648 
0OO0Q650 



X Q USER 
X Q USER 

j; . 



s SITE ; EXECUTE LOGANL^MA IiviT; COMMON s ; END. 
s SITE ' EXECUTE LQGANl/MA INT* COMMON = 0622 i END. 
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BEGIN 

INTEGER 
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COMMONJ 
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LOGriD»''MNTLafi 

MAXFNUM=99#» 

MAXENTRYaZO'^tf; 



"ttf % CHANGC Thib FUH ShAREClSK 

% MAXIMUM NuMREH OF FiLtiJ 
2l MAXIMUM SUE i1F LOG ENTRY 



REAL 



OOUU2200 
OOU02300 



MFTn«FTn^ALPHAl» ALPHA?* 



TAPERRURSi-DISKLRRHKSfT APEfEbTb^ 

LUN* TYPE* FNUM* Mix* MARKER' 

LA S T E N , TRYi L nGE[MTRY»N u MEMTRU .. '-.>HCNT , « . S£QS. 



tKFEP IN THIS ORDER FfiR SCAN 



0000 3000 
00Q0400O 
OQ005000 



ARRAY 



STARTOAtE»STARTlME#STOPDAT£*SrOPTlMe* 
CDATE»ACT0ATE*TIME0*TIME1»PRUCTIME*I0TIME* 
ETyPE * EUSPEED * Tl*T2*LUNM A X*MI X MAx ; 



AC05 9]* 
B[0«2 9 3 * 



DAYSC0:6]* 
INXE0!393^ 
,JARCQt3|,0t?993» 



JUNKBUFFERC0J39], 
LC0U7]* 
MESSEn;253* 



RETRYtO»313» 

TA8UEt0«39*0tl022]» 

TERMINALMESSAGAC0»93* 



TINUC0S31]* 
TPECNFC0U#0:31]* 

UNlT[Qi 6 33# 



UNKCdin* 
UTITLESC0»173; 

RQQlFAN _ 



LISTOG/ SUMTOG* TEi>TOG* QNLTUG' % KEPOflT TOGGLES 
DRUMTOG* SUMFILETQG* CROSbTOG* HalTOG* XUTO^j* 
TNPASSlfMAlNTlUnrUS FF lN PUT ; 



tABEL 



STARtUP»rlNlSHUP*R£NTE«»ENOOFlLE#£0P*FINIS* 
FLAGBlT#lN\/ALDIkDEX*INTEGRQvFLW^ExPQNQ\yFlrW*0IvHY7ERQ; 



MCNITOR FLAGMNdEX* I^TOVR*t'XPOVR*Zi:HU:soIV/k;Rn' 
FILE 

XaG DISK SFHTAI 



FINPUT disk SERlALt20!30] 
PBD DISK SEHlALtaO'lSOOi 

-iai niSK sfrui t?n«iQQj 



{2t^f<iQU 



TEMP DISK SEKlALi:2o:600] 
BADISK DISK SERI At [ 20 ! 600 J 
-^iia DI SK 5FRlA LC 2ci6qQJ , 



"PBU»"'MAINT'« 
"T ST'"* MA TNT" 



SORTED DISK SgR I aL £20' 6003 

SPO 11(1*10)* 

IPA I7 f 3f 1 5 )* 



»'TMP""KAINT" 
"XD" "HaiIviT" 
"SuM""tviAI|\|T" 



(2*10*30)* 
(2*18*90)* 
(1*31Q*2tQl* 



(2*10*30)* 
(2*10*30)* 

C2*10*3Q )* 



"SRT""MAINT*' (2*10*30)* 



WHATlOG 0(2,10)> 
SWITCH FILE SWIN «s TEMP* tiAD I SK; 
SMTCH FILE SWQUT ;=» SUm*SORTED; 



DEFINE 



,vBIP'^::;S-#t:ll.*, 

^wmmmm» FF:.«i.aM5.»* 



sr«8«io** 



ARROW s"*"** 

BIT = IF 6ti TrttN 

0CTA0E«'DStg3 RESET;3(IF SB THtN 



00006000 
00007000 
0QUU8O0O 



00009000 

oooioooo 
ooouooo 



OOUi2000 
00012100 
0OU1220Q 



00012300 
00012400 

nnoiasoo 



OOU12600 
00012700 

ooorr>BOo 



00012900 
00013000 
OOP 13 10 



00013200 
OOO1330C 

OQ U1 3/I0 



00013500 
00013600 
nnoainnn 



OOUillOO 
00021200 
QQOaUQO 



00022000 
00022100 
Q0022200 



00022300 

00023000 

nnoi^4oan 



00024100 
00U25O00 
QQ0251QQ 



00026000 

00026100 
QQU27QQQ 



OD028000 
00029000 
0Q0291QQ 



00030000 
00030100 
00031000 



00032000 
000 32 I OO 
QQQ12200 



ds:sse:t 
us:=seT 



Else ds;«reset*skip bB#* 

else: DStgRESET;SKlP Sd3<* 



00033000 

00034000 
00035000 



8L .. aBOQLEAN** 

PRINTMFIO » »lRITE(LPACDau3*f«Fl0*LMFI0) ** 

WRITESlNfiLE* LC173:80* WRlT£(Pt^D*,|8*LC* 3 )»*' 
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WRITED0UBLE= Llirlt-l) WR i T t ( HUUM 6* L L * 3 1 # ' 
WRI'IEPAGE = L[17JS=V99; wR 1 T L ( PbD M 6* L [ * J J » * 
WRITE S PACE S (^ y KlTE i» PA C £Sn = 



SINGLESPACE* 
DOUBLESPACEg 



LCrnJs^^RITESPACtbi; 
[I73alg. 



WRlTECPBD^le'LC*] )«» 



00038000 
00039000 

ooo a oooo 



-t-u: 



00041000 
00042000 

nn Q« :^ono 



PAGEIT = Lll7i-999»f 

EOFPaO = L[l7J = l0i?3*/ 

ZER0(^ER0l>ZER0 2)>ZEf<UUTCUEHij1 )- lt7lHD2) 4f 



LIST 



OUMMY«DUMmY))(; 
L MF I D C MF I D . r 6 : tf i 3 ^ MF 1 » F I D . L 6 ; 6 J * F I D ) « 



00044U00 
00045000 

00^5100 



00046000 
00046100 
000 4 6 20 



LALPHACALPHAl>ALPHA?,iyluME;nHIE;3»l:-i_LvjEiMTRY»tCFJ*l 01 V 
FUKMAT 

SPAC E SC*f/? ;^ , 



6)> 



0OU46300 
00047000 



FILE 



FMFIDCANALYSIS fQR 

FDATE(X8»"DATfr IS "# a5, x;J* a6# "DA Y# 'S J ' 

FTFRMINATFf A6>a6. " RRaNCH t PNTHY ">L>"AT RECORD 



••*Al'A6»"/"# Al* A6)* 



">U*"aFOMrNT 



OOUaVOOC 

ooosoooo 



% 

StHtAM PROCEDURE aOjyESii 
(U*>"Ji, IAiM.CAYf(lATF:>Tli-1l::.Li, ^Tl.ititOllV] uC, , TEST, tj 



.LTGi,-) 



VAtUE JULIAN^DAYHJATE' T l^E » L 1 STOU^ iiUM TOG/ JE ST lJCi*GrvLTOG; 
^EGiN 

DIlaL; . : 



0SI = 12 LIT"LQGAiML/MAINT"; 
ns: = 12 LIT" RUIN "; 

si;gLQc ..iuliam; .snysi + aj Obtg^ Ohh; 



DIJ^0I + 2I SIi»SI+2; DSJ=6 CHI?; 
DSia? LIT^DAY* "J OSSaS CHl?; 

DH«DH'3i SHaSUa; PSJa'j r.HR; 



OS8a9 LIT" 
LISTOGCDSJ: 

suMTOficnsp 



WITH " ; 
14 LlT"CHRONDLQGICALi"); 
a HT"SUMMAtiY*")» ,, 



TEST0G(DS:sl3 LI T"REAlT IMET A^E* " J ; 
ONLTOGCDSl«ll L i T"CONF IDENCE* " ) / 
nT<«OI*U DS»sL!T 



n ♦» ! 



END BOJMESS; 
% 
STHEAM PROCEDURE BLANkCL); 



BEGIN 

DII»L; DSisS LIT" "i SI!»l; US!«U kvOS; 

£mp blank; ■ 



STREAM PROCEDURE UNDERLINE CL ) ; 
tfEGIN 



sit«Li dii«l; 

aeftocir sc^» " them ossslit"-" else diisdi + ii Sij-si + d); 

End yNDERLlNC; — . . — . — : — - 



STHEAM PRQCEDUHE ZERCLT(N*A); VaLuE N; 
H EGIN L OC A L N0lV 6a ; _ — 



SltsLOC N; DHaLOC NOIVISSA; SllaiUe; DI»aOH7; dS»sCHR; 

dh*a; osjas lit^o"; sif«A> 

MnTV64CnS:»-^2 hiiSi OSaa^? wns^; DSi^N wnSl 



End zerdut; 
% 

STKF&M PRnCFnilRF MHV F f Ki* HP RP « THf -' JF ) J VA|UF Kl 



BEGIN 

sit«HER£; di»»there; os»«n wds; 



OOOGSOO'J 

« 6 

JlUU-iiJUilXL, 



G006620C 

0006640 

-000o6500 



00UC6b50 
00066600 
GQOn6650 



00066700 
00066800 
00066900 



00067000 
00067100 
>Uft720( 



-OOi 



'200 



00067300 
00067400 
00067500 



00067600 
00067700 
00069000 



00069100 
00069200 
00069300 



00069400 

000/0000 

-Q 007 10QQ 



00072000 

0007 3000 

-00074000 
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OOO^bOOO 
00 76 



000/7000 

00078000 
00079000 



00060000 

oooaoioo 

00081000 



00082000 
00083000 
00 084 000 
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REAL STREAM 
b t: G I N 



PROCEDURE 5fMQnP(FlLEN); 



SI isFlLlN; 

END snoop; 



OlJaLGC bNOOp; DSJ»WOaj 



oooaaoso 
oooaaioo 



REAL STREAM 

BEGIN 
— DH alOC: 



PROCEDURE GuTEOSPEEUCEU'tUSPEEU); VaLUL EU^EUSPEEU/ 

( it :T E usPEEc ; oi; = D i ty» . sn i p ^ pa, 



0008^300 
00084400 
00064450 



Si*«LOC tUSPEEO; 
END GETEUSPEED; 



SKIP SBJ EUCSKIP 2 SB)> 2(8IT); 



OOO045OU 
00084600 

, n(.iuii470a 



REAL STREAM 
BEGIN 

ni ? = i , n c 



PROCEDUHE QCTVCDECD; VALUE OECi; 

Dfct; ns; = 5 KF^rr ; i>li-Lur. ficTv: sf;sMii: nFri; nstsH prr 



00084800 
00084900 
OQOa'-iQOO 



End OCT v; 
% 

REAL STf<EAM PRQCEDtjRE GCTCONVC N.DECDJ VALUE N>U£CI 



OOObbOOO 
0008700C 

OQuaeoQQ 



t3EGIN 

SIJ=UOC DECi; 
ENn OCTCDNV; 



00089000 
00089100 



3IJ=SI+Ni Di:=LOC UCTCGnv^ 8CUCTAQE); 



% 

REAL STREAM 
BFGIN 



00091000 
00UV2000 



PROCEDURE OECM(nCTv); VAt.u£ OGTV/ 



00093100 
00094000 
0009 5 000 



SI J=LCC 

END decm; 



OCTv; Di:=LUC OECm; D5:=a OLC 



REAL STREAM 
BEGIN 

snTLUr. 



procedure DECLCftCTv); VALUE UCTVJ 

QrTVi nrtsLUr OFrL; ns;*5 nrr:; iingni"7i nsta7 f tll; 



ooovoooc 

00097000 

Q 9 7 1 



0009800C 
00099000 
QoiGonno 



END decl; 

REAi PRHCEDuRF ATlME(xCLnCK); VALUE XCiCCk; RFAl. XCiGCk; 



BEGIN INTEGER HR,MIn; 

HRJ= XCLOCK OIV 2l6000i 

MIN.'B fxCLQCK om ^6nn) MOD fen; 



0010100c 
0010200c 

0010300C 



atimes= DECM(MJN) 

END atime; 



S 33t30:4ii:63 <i DtCMf hR ) C 1 8 » 36 •' 1 2 ] ; 



00104000 
00105000 
QQ1Q600C 



JL 



REAl PROCEDURE DAYCJULIANj; VALUE JULIAN; REAL JUHAN; 
BEGIN 



001U700G 
00108000 

noi09ncc 



LABEL OWT^EXIT; 

IF JULlANaO THEN BEGIN aCTUaTeJsO; &Q ExIT; EnD; 
Dt sJUL lAN.[30{63xi00-t-JULlAN.[36>6]xi0.»JLLlAN.C42>6]/ 



OOHOOOO 
OOUIOOO 
00 11 200 



Y t « JUL I AN . C 18 : fl 3 XJO + JUL IAN, i:24» 6 j; 
FOR HisBl* IF Y MOD 4 m THEN 29 ELSI 

3t»^0Mif :^n#3i*3i>:^Q>ai/30 nn 



00113000 
00114000 
0011500C 



28* 



00116000 
00117000 
Q 0118Q0 



OWTi 



IF D LEQ H THEN GO OwT ELSE 

BEGIN dj=d-h; m«=m+i; enp; 



IF M<2 



THEN 
ELSE 



BEGIN 
BEfilN 



Q»»M«» If 



Pl»Y»l 
PI BY 



00U900O 
00120000 

Qouiono 



END 



ACTDATEr= JULIAN. [lei 12] & 49[30»42:6] & OECM(D U 18 S 36 « 12 ] 

& 49tl2»42J6] 4 DECMCM)Cl 1371113; 
IF JULIAN < THEN 



00122000 
00123000 
00124000 



OAYJ 
DAYI> 



ACTOATE ELSE 
0AYSCC(Q*26-2) 



00125000 
00126000 
00127000 



DIV lO+.0 + P + P,C36U03 + l) MOO 73i 



00128000 
00129000 
OQIJOQ QO 
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49 
SO 
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53 
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56 



f-ND day; 
% 

HCULEAN STRFAM PRnCFI^uRt TFSTHtKrifI J i VAl .iJi-: ] i 



00131000 
00132000 
00133000 



BEGIN 

sii»b; 



sii«sU36; SKIP a sb; 

SB; TF Shi THCN TALI Yt = i; 



0013/1000 
00135000 
0013 60 00 



TESTBIT!= tally; 

tiviD testbit; 



INTEGER STREAM PRQCEDuRt 
VAiUE TYPEfTINU; 
BEGIN LOCAL R; 



ANALYZEDfc:SCCTYPE*TiNU#ResULT*MSGBuFFER); 



00137000 
00138000 
001.^9000 



LABEL CARO*LIN£*TAPL#ORUM»UiSK*bHO, 

PUNCH#PREAD»Diyf xn; 
pnsMSfiBtJFFER? nS;~^i LIT" "; 



SIlaMSGBUFFER; 
Dn»MSG8UFFERi 

SUsRFSmH ST 



0Sja39 WDS; 

«ST+4? IF SB THEN TAt LYlal t 



rs«tally; tallyjsc; 
if sb then 

BEG I N 



SKIP 2 dB; 



051*24 LIT*»022 - CORE aDURLSS 
DSJall LIT!! ADDRESSSs «•"; 

SKIP 7 SR? scncTAng); 



ERROR'', 



Si:sSI-«; SKIP 2 
TALLY!»TALLY+i; 



SBj 



FNOi 



SKIP 4 SBJ 
IF SB THEN 
BFfiTN 



si8=L0c tinl; sn-»si + b; 



DS{ = 6 LIT"L)18 - 

ns;sin i.it" not 



susresult; sussi+s; 
tallyi*tally+i; 



'•; DS:53 chr; 

READY"; L1T:'|,)I + ^i; 



fnq? 



SKIP sb; 

IF SB THEN 
BEGIN 



DSI«18 LIT^Dl/ - DESC. PARITY"; DUsDl + 22; 
TALLYtsTALLY+i; 



X&LELL 



SKiP sb; 

IF SB THEN 
BE G IN . 



SitsLOC TINU; SIJ»SI>5; 
DS:»6 LIT"016 - "; 0S»»3 ChR; 
nsiss LIT** BUSY"; Qlt»Ol*?fii 



TALLY»»TALLY+li 

end; 

sn*RFSULT; sn=S H4 ; skip 3 sb; 



ci«»ci+type; 
60 TO xit; 

fin to card; 



GO 
GO 

_an. 



to 

TO 



line; 
tape; 
drum ; 



GO 
60 



TO 
TO 



disk; 

SPOj 

punch? 



00l'»0000 
00141000 
Q0142000 



00143000 
00144000 
00144100 



00144200 
00145000 
001 46 QQQ 



00146100 
00147000 
00146000 



0014V000 
00150000 

■oonyoon 



00154000 
00155000 
Q0156QQQ 



00157000 
0015800G 
QQ159QQQ 



ooiooooo 

00161000 

onior'noo 



00163000 
00164000 
Q0165QQQ 



00106000 
0016/000 
Q0168Q0Q 



00169000 
00170000 
QQ171QQQ 



00172000 
00173000 
00174000 



00175000 
00176000 
00177000 



00178000 
00179000 
00.180000 



00181000 
OG 112000 
00163000 



00184000 
00185000 
00186000 



00187000 
00188000 
189 00 



b.? 
!j1 
54 
bS 
lib 
hi 



I 2 

3 

4 

I « 

6 

7 

► « 

9 

10 

12 
13 

I '" 
15 
16 

18 

19 

I 20 

21 

22 

I 23 

24 

ZS 

f 26 

27 

28 

I M 
30 
31 

33 
34 

I 35 
36 



37 

) 38 

39 

40 



00 



00 



( 41 
42 
«3 



45 
46 

• " 

48 
49 

I «> 
51 

52 
\ 53 

54 



GO 

GO 

-64i. 



TO 
TO 

4UJ- 



xit; 
spo; 
phe a d; 



% PPUNCH. 



GO TO SPOJ 
CARD! 
SKTP SRI 



* CCOM, 



IF SB 
BEGIN 



THtN 
'ds:«i6 LIT"D?0 - KEAn CH£;CK"; DIt«p.l42^> 



end; 

S KI P 



TALLYJ»TALLY+1J 



IF SB 

BEGIN 



THEN 
DS>»2Q LIT"D19 - VALIDITY ChFCK"; 



END) 
GO TO 



LINE I 

SKIP SBi 
IF SB THEN 



TALLYJe TAi.LY + i; 

xit; 



BEGIN 



ENOI 
GO TO 
TAPEt 



DS:«i7 LIT "020 
TAlLYtaTALLY*li 



PRINT CHECK«> DI!«DI+g3; 



019; 



SKIP sb; 

IF SB THEN 
BEGIN 



end; 

SKIP 



0SIS6 Ln"D2C • "i 

oss*5 LiT^'wRiTt"; K(DU=Di-i; dS5=5 lIT'^reau "j; 

nSt«7 LIT" PARITY"; m;'[)l-*Z-2f 

TALLY t*TALLY+li 



IF SB 
BEGIN 



THEN ELSE 6n TO XIT; % SAvLs PHt LOCATION 
Slt^RESULT/ SKIP 2 SR^ 



OOl'JOOOO 
OOlVlOOO 
00 1^-^000 



001*3000 
00194000 
QQl^SOOQ 



001V6000 
001*7000 
001*6000 



00199000 
00200000 
00201000 



00<i02000 
00203000 
0fl2Q<<0Qfl 



00205000 
00206000 
00?07000 



0020.8000 
00209000 
00210Q 00 



00211000 
00212000 
Q02U0Q0 



00214000 
00216000 
QQ2 1 70 0Q 



00218000 
00219000 
00220000 



00222000 
00223000 

002:^4000 



00226000 

00227000 
00228000 



IF SB 
BEGIN 



THEN ELSE 
SKTP Q nski 



BEGIN SP»i>i + 3i SKIP 
%■ MOD III I/Q«S 



4 SBi GO TO D19 end; 



00229000 
00230000 
Qfi231nnn 



IF SB 

BEGIN 



THEN 
DSi?20,,LlT"n37>ni^ ■ MFM PARITY"^ nT<gUI*2 ; 



00232000 
00233000 
QQ2340QQ 



end; 

SKIP 



TALLY t«T ALL Yfi; 



SRI 



00235000 
00236000 
Q02 3700Q 



IF SB 

BEGIN 



THEN 
nSts24 LTT"D36*D19 - BLANK TAPk HN 



00236000 
00239000 
00240Q0Q 



OStsS LIT"W«ITE"; 

oitsowii; 

TALLY>»TALLY4i; 



R(0Il5Ul»5i 0St«5 LIT"READ ")J 



00241000 
00242000 

QQ 2440 Q0 



end; 

SKIP SB; 
IF SB THEN 



00245000 
00246000 
0024«000 



55 
I i6 



BEOIN 



00249000 
002b0000 
002bl000 



^. 



0SJ*18 LlT"035#Oi9 
TALLYl»TALLY-»U 



* TAPE QQT^i 0n*Dl + 22; 



00252000 
00253000 
00254000 



r 

■or 
ni 



4f> 
•17 ' 

SO 



54 
55 



rf 

2 
3 



13 
14 
15 



16 
17 
18 
19 
20 
21 



22 
23 
24 



2S 
26 
27 
28 
29 



31 



34 
35 



36 
37' 



38 
39 



40 
41 
42 



43 
44 
45 



48 



49 
50 



52 



55 
56 



end; 
SKIP se; 

TF SB THTN 



00<:55000 
QQdb6000 
0C12'37000 



8EGIN 



DSiaie LIT"D3«*D19 
T Al. 1 Yi « TA i„l,.r- H i 



TAPL EOT**; 



ooasaooo 

00259000 
00260000 



end; 

ni«sRESULT; 
■S I 8 = 5 1- 4-; — 



Dn = oi + 4; i>KiP J db; 



IF SB THEN DS»=SET ELSE DSSsRESET; 

SKIP db; 

SltaSl-i; SKIP 5 SB; ^ 



00201000 

00202000 

- OO i P oJt bOO 



end; end; 
fi O TQ XI t ; 



IF SB TI-EN ELSE IJSS=KLSLTi 



0026^000 
00265000 
QQ26600Q 



002670C0 

oo2nooo 

QQ272QQQ 



DRUM t 

IF SB 
BEGIN 



THEN 



DS!=27 LIT^CPl - 
TALLY!aTALLY+i; 



OMU CHANNEL LUCK OUT"; Di:sDl + 13; 



00273000 
00274000 
0Q275Q O - 



end; 



SKIP sb; 

If SB THEN 
BES I N 



0027600C 
002/7000 

o o <^/ ao oo 



055=17 LlT"n20 - MtMORY RAtE'S 
TALLYJ«TALLY+i; 



00279000 

00280000 
-QQSaiOOO- 



Ui:=Dl+23; 



XWO^ 



SKIP sb; 

IF SB THEN 
BEGIN 



00282000 
00283000 
2 8400 



R(DSS«17 L1T"D19 - READ 

si!*si-u SKIP 4 sb; 

G O TO D 1 9; 



00285000 
00286000 
00287000 



PAHlTY"; TALLY|=TALLY+i; JUMP OUT 



end; 

GO TO 
JUlKJ 



XlT);00288000 

00289000 

QO«^9GO 00 



xit; 



sii=si-i; skip 

if SB THEN 
BEGLN 



00296000 
00297000 
00298000 



SB; 



DSIS16 LlT^OgS ' 
TALLYJ3TALLY+i; 



READ 



CHECK"; 



DHsDI + 24; 



00298100 
00298120 
0Q298140 



rN Di 



SKIP 2 sb; 

IF SB THEN 
RFfilN 



00298160 
00298180 
QQ296g00 



m m 



0SI*18 LlfDZl - EU NOT READY") Dl 4*01 + 22; 
TALLY I "TALLY + 1; 



00298220 
00299000 
00300000 



SKIP sb; 

IF SB THEN 
BEGIN 



00301000 
00302000 
Q0303Q0Q 



0St*l7 LIT»D20 - WRITE LOCK "> 

RtOItsDI-u; DStaU LlfREAD PARITY"); UI:«DI*23; 

talLy»i'Tai,ly*i; , . 



00304000 
00305000 
Q Q3Q 60QQ 



end; 
SKIP sb; 

TF SB THFN- 



00307000 
00307100 
00 309000 



BEGIN 



00309000 
00310000 
00311000 



0S»«17 LIT"C19 ' 
TAI I YIwTALL Y. HI 



data PARITY") 



00312000 
00313000 
00314000 



4; 
(,1 



I") 



h 



2 
3 

* 

6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 
23 
24 



25 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 

I M 
39 
40 

I 41 
42 
43" 



45 
«6 

I *y 

«8 
49 

I 50 
51 
52 

I 53 
54 



55 
I 56 



end; 

GO TO 
PUNCHt 



XIT, 



SKIP SB! 
IF SB THEN 
BEGIN _ 



DS»»17 
TALLYJ = 



^"020 
TALLY+li 



PUNCH CHECK"; DIS»DI+23; 



end; 



GO TO 019; 

preaoi 

Skip 2 sb; 



IF SB 
BEGIN 



THEN 



n.S»xl7 I.IT"D19-T F<EAD PARITY"; 



TALLYI«TALLY+i; 



end; 

GO TO xit; 



spu: 



nivi 



SKIP sb; 



SKIP sb; 

IF SB THEN 
BEGIN — 



DSt=l6 
TALLYJ: 



LIT"D19 - 
TALLY+1* 



MEM PAIJITY"; 



-6Am^ 



XITI 

ANALYZEDESC 
ENn ANALYZFDES 



••tally; 



PROCEDURE 8«EAK 

Value fa; re a 



BEGIN 
OEFINE 

-^ FILEADDR» ARAYfma# 



DUWNADDRESStFA* ARAY)/ 

L FAi rNTFPtl::R ARRAY rtrtAYCQj? 



EU 
SU 
-SIX 



ARAYt n#/ 
ARAYC23*' 



FACE ■ 

ZONE a 

TRACK » 



ARAYU]## 
ARAYC53#* 
ARAYtamt* 



SEG 

HEAD 

PIN 



!ARAY[7]*> 
•ARAYta]#* 
=ARAYt9]»* 



LABEL HS1*HS 
SWITCH HSWia 
HnOLEAN EVEN 



2*HS3*hS4»EXIT; 

H5l#HS2*hS3*HSa; 



INTEGER PROC 
VA LME FA*0 



EDURE 2NE(FA#0KTYPE)i 
KTYPE; INTEGER FA*0I^TYP£1 



003i5000 
00316000 

nojiyooQ 



00318000 
00319000 
00320000 



00321000 

00322000 
3 2 3QQ0 



00325000 
00326000 
OQ327000 



00328000 
00329000 

noj.jQnoo 



00331000 
00332000 
003 3 3000 



00334000 
00336000 
00 3 37000 



00338000 

00 339000 
00340000 



00341000 
00342000 
00 343 000 



00344000 
00345000 
nQ346onn 



00347000 
00348000 
00349000 



00350000 
00331000 
nn35gnnn 



003:33000 
003i34000 
003^5000 



00356000 
00357000 
00 3 5 6 00 



ERROR(ERROKl)«eEGlN ARAYC9 3r**E,RR0«i; GO EXIT; ENO*; 
INTEGER C#TR*DKTYPF1 



00359000 
0036UOOO 
00361000 



00362000 
00362100 
00 363000 



00364000 
00365000 
0Q36<»Q 0Q 



00366100 
00167000 
00368000 



ZNE»s IF FA«a(FA MOD 100) < (IF 
ELSE IF FA < CIF DKTYPE-2 



DKTYPE»2 THEN 25 ELSE 
THEN 58 ELSE 56) THEN 



24) THEN 
I ELSE 2; 



00369000 
00370000 
OU J/^ iUOO 



riLEADDRts 
IF «Elll»OCT 
IF CQKTYPFt 



8CTV(FA)i 

VCFA,C5»73)) > 19 THtN ERRORfl); 

«GETEUSPEEn(EU»EUSPEEDn n Q THEM ERftQRtgli 



00372000 
00373000 
Q0374QQ 



.Hi| 
.71 ' 

M 



52 
53 

55 

.1.' 



>T 



8 
9 
10 
11 
12 
13 
M 
15 
16 
17 
IB 



19 
20 



24 
25 
26 
27 
28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37" 



38 
39 



41 
42 
43" 



47 
48 
49 
50 



52 



55 
56 



IF (SEH=OCTV(FA. [12112]) ) > ^OxDkTYPE:-! THtiN ERRURCi}; 

IF (TR:=TRACK{=aCTVCFA,[24J 123 ) ) > 99 THfciN tHR0R(4); 

I F Cfi E: G?g A B . S( CTVCFAa: i6 ; V?J)n > 99 THLN L'HH U R(5)j 



SUJ* SET DIV C^xDKTYPE) *li 

SLT5«» <SCT MUD 4i +1; 

FAfFlilTF fflFAl fTR^^n^ * ftrAjfKFT MHO ?ap> 



MUn 280 



THEN "CW " ELSE "CCW"/ 
ZONE»*ZNE(FILEADDP*UKTYf»E) + i; 
EVENI«rR MOD 2s0; 



Cl» 



IF 

IF 

4X- 



TR 
TR 



liEO 
LEQ 
Ltd 



24 
49 



THEN 
THEN 
THI;N 



IF 
IF 

-in 



EVEN 
EVEN 

EV E N 



THEN 
THEN 
THEN 



EUSE 
ELSE 

fe 'Lt'S b 



IF EVEN THEN 
TR:a TR MOO 50; 

GO TO H,SW[C*1]; - 



ELSE 
ELSE 
E LS E 



3 LLSE 2, 



HSU XC»0 

PINI»TR DIV 
. HEADflF ZO 



2*5; 

E 9 



1 THEN 1 E LS E 



HSti; 



GO 



IF 

exi-t; 



ZONE s 2 THEN 5 ELSE 11^ 



PINisTR DIV 2 * U} 
HEA6««IF Z0NE«1 then 2 ELSE 
IF 7nNF»g THFN 6 El SF 



12± 



60 EXITi 
HSJJ XC»2 
PTN>sC(TR-?4} 



DTV ?J-f4; 



HEAO««IF 

IF 

fin fxiTf 



ZONEal 
ZONEqS 



Then 

THEN 



ELSE 
ELSE 



13; 



HS4I xc«3 

PIN»»((TR*26) DIV 2)+5; 
HEAD<»IF ZONF^t ThEU t* ElfiE 



GO 
EXIT I 



IF 

exit; 



Z0NE«2 THEN 6 ELSE 14i 



END breakoownaodress; 

% 

PRQCFnilRE PERTPHANHl FR? 



iEGIN REAL IO*NEUM#eNTRyi 

LABEL READaBJ#REAnFa*NOFlLE»SEEK,Exni 
MFTNF Fit FADnffiACftigf ■ 



EU 

su 

SET 



FACE 
ZONE 
TRACK 



«Acn#* 

>«A[2J#* 
i A E 3 J » » 



SEG 

HEAD 

PIN 



•»AtA3*# 



9A[7]«^ 
«A[83#* 
'»AE9Ji»i 



FORMAT 

0ETAIL(a5,X3*A3#'' <"*Al#»>''*X2.»MIX»«,I3*X3,«'CHANNEL« 
DAFCX<tO."DTSK AUnRESS s "#1£.A&3> .': " .■ ' ":'■ 



00375000 
00376000 
OO3i^7OO0 



003/8000 

0037O000 

no3anooo 



00381000 
00332000 
00^ 03 



O038'»000 
00385000 
00386000 



00387000 
00388000 
00 3 89000 



00390000 
00391000 

00393000 
00394000 
00 1 9500 



00396000 
00397000 

00398000 



00399000 
00400000 
00401000 



00402000 
00403000 
00404000 



0040b000 
00406000 
00407000 



00408000 
00409000 
00410000 



00411000 
00414000 
00415000 



00416000 
00417000 
0Q4171QQ 



00417200 
00417300 
00417400 



00417500 

00417600 

-OO417700 



00417800 
00417900 
Q041 6Q 0Q 



12) 



ADD«ESSERRaRF(X40>"DlSK ADDRESS ERRQR")* 

EUFCX40*"EU"M2)^ 

SUFCXAO«"STnHAf;F HMTT"* J 3> X ^» 'M **» X? . ">; pN.F/' » l ?. y ft, " t "^ 



00418500 
00419000 
QQ42Q000 



Xg^^HCAC^n)* 
1 SKF ( X40, "0 I SK"* 1 2# X n.^fSXa* "TRACK"' 1 3* X4*" I •'#X2* 
"PIN " > l2>r« (CENT E H T A P i H) » 



00420100 
00420200 

00^20300 



00420400 
00420500 
00 # 2 6 00 



■Wi 
jfl7| 1 
■(11 



62 
53 
Fi4 
hi, 

571 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 
TO 
11 
12 
13 
14 
15 



16 
17 
18 



19 
I 20 

21 

22 
I 23 

24 



2S 
26 
27 



28 

29 
30 



31 
32 



33 

34 
35 
36 



37 
, 38 

39 
40 
41 
42 



43 



«6 



49 

I 50 
51 
52 

I W 
54 



K A C t F ( X a , A 3 / •• F A C E " » X S) , " ! •• , X 2 , ♦• b E. G N- r In: T 'M 2 » X 2 # " : " ) * 



PhYREEL{X40* "PHYSICAL 
I0nE.SC(X4O»"I/0 Dt.SC. 



REELS 
- «• 



" * 1 5 ) # 

iX2«(,>Xlt0t 



*(K15#"CBJ JOB NAME 
REDESC(XttO*"RESULT DESC. 
_ — *(X 1 5»'*FILE N A ME 



RET«IES(X«0#"RETRIES 
TAPENAMECX8d*"TAPE NAME 
TAPERrn (Xflflf^RFE t 



b''*X2,0*X1»0* 
K "«X2 »A 1 » A6 * "/" »A 1» A 6 ))» 



00420700 
00421000 
004^1^000 



TAPiDATCCxee, "CREATION DATE • 
TAPECYCU{X88*"CYCLE » 



" * 1 b ) # 
: "#Al#A6#"/"»Ali»A6)# 

i "MS),# 



00^23000 
00424000 
00425000 



00426000 
00427000 

o(j4i^anon 



">A5,X2#0)* 
"'15)' 

»»l^)i 



00429000 
00430000 
00431000 



MIX :s BC0].C2C;5J; 

IF (FNUMt^fRronr^tg] ,)>MaXFinUM 



THEN FNuM;aMAXFNUM? 



LUN r* UNlTtBt31.C3J53x2*I0»atit33,Ca4sn3; 

IF TYPE»3 THEN IF BC93al023 THEN 

BEGIN IF LUN<lft THFN HETR Y H UN3 I sRETRY tl UN J fBf Rl i 



00432000 
00433000 
004:^4000 



00435000 
00*36000 



GO exit; 
end; 

TF I rSTOti THE 



JVL- 



BEGIN 

IF TYPEaS 

TF TY P Fa 3 



00439000 
00440000 
00441000 



THEN HRnECLC*3#DAF,ec23.C5:73,et233 ELSE 

THFN ulRTTrfl r*3.PHYHEFI .Bf71,p^f>MftTi Fl Sr HIAMK(lU 



00442000 
00443000 
44 4000 



WRITECAC*I*OETAIL 

»ATIME(BC13,C3«2'U) 
-^-- >N£UM ; =i I F L U Ws^i TH t- N UNK[TYPEl L l .S E TI NU E LUN J 



'IF IC-I THEN 41 ELSE 54 

'MIX 

«BEf13,CtBt2. 



004a6000 
0044 7000 
0044 8 - 



4MX. 



00449000 
004i0000 

nn4fiiooQ 



); 

M0VEC5*A#L); 

WRITF5INril„(^; 



00452000 
00453000 
00454000 



IF TYPE«5 THEN 00455000 

BEGIN WRITE(Lt*3#HETRlES#lF ( 1 !»B £23 . [ 1 ! 43 )s0 ThEN 10 ELSE l)i 00456000 

IF 1*0 THFN M0VE(2#MESS|:6ulC83) ELSE MQVEC 2> MESS [ 4 3 ,L [ 8 3 )i 00458000 



WRITESINGLE/ 
END ELSE 
IF TYPFsl THEN 



BEGIN WrITE(LC*3»HETRIESa(BC83 + RETRYCLUN3) qIV ?)} 

IF Cll«Bt93) a THEN M0VE(2>MESS£4 3'LCa 3 ) ELSE 
— TF T«R TPFN MQ^/rfg.MpSSCftl.LfRT^ fl Sf 



004O0000 
00461000 
0Q46PQ0Q 



00463000 
OO^JftSOOO 
nn4ft6nnn 



IF I»16 THEN 
IF 1*32 THFN 
WR I TESINGLEi 



MQVEC2W^ESiiC63/L[83) ELSL 
MQVEC2*"iESi>LlO + 2xiD3/LCbJ); 



end; 

BLANKCtj^ writedouble; 



00467000 
00463000 
00469000 



IF MlX/0 THEN 
IF TYPE»5 THEN 
IF JARrMIXyOlan 



00470000 
00471000 
00472000 



THEN 



*a6J JOB RELATED 
XDISK LOOK AHEAD 
;tNO Jf]R FNT KY 



00473000 
00474000 
00475000 



BEGIN 
ENTRYr 
RFAaOBJa 



rcnt; 



004 76000 
004/7000 

oo47anflfl 



JS 
I 56 



READCLOG'5#AC*3 )[SEEK3i 

ENTRYsa ENTRY+li 

I F CTH5 A[ 3 > L 3t 6l 3!^l2 



J-btA. 



ir Ti»63 OR 
BEGIN 
JARrMIX^n3ts 



Tl»15 THEN 



a-ChECK FUR H/L 



% END OF LOG OH HALT/LOAD 



00479000 
00480000 
004fll000 



00482000 
00463000 
00484000 



.vu 






HI 



52 

53 



n 

2 

3 
4 
5 
6 
■/ 
B 
9 
10 
11 
12 
13 
M 
15 
16 
17 
IS 
19 
20 
21 
22 



23 
24 
25 
26 



27 

28 

29 

30 

31 " 

32 

33 

34 



35 
36 



37 
38 



40 
41 



«2 

«3" 

44 

45 

46 

47 

«S 

49 

SO 

51 



52 

53 
54 
55 
56 
57 



IF FNUM 
END EL S E 



Mf:SbLO + HEAL(Tl = OJ)x23*JARtMlXMn; 
sC THtiN GO S£LK tLSE GO NOFILE; 



BEGIN SPACECLCC.'n«AC0J.[39l9])t{)EEK3; 

entry;s entry+i; 

GO RIADFBJi ^ 



004b5000 
00^86000 
0Q4H700Q 



00488000 
00^89000 

onatfonoo 



END ELSE 

IF A[0].t20J 

AEa]a3;15]t 



53/MIX THEN GO kLaDQBj; 
a ENTRYJ 



004V1000 
0C'»92C00 
0Q4V3O0O 



MOVE(3»AC23» 
IF FNUMaO TH 



RFAnriLi 



JARtMiX#03); 

EN GO seek; 



00494000 
00495000 
00496000 



READ 
ENTR 
IF ( 



(LQG>5#A 
YJ= ENTR 
T1«°AC03 



C*])CSLEM/ 
Y + li 



^CH&CK FOR H/L 



0U497000 
00498000 
0049900 



IF T 
BEQI 



N QF t |,,F t 



la63 OR 

N 



T1»15 THEN 
«FNUMx3Hb ^ ; 



* END OF LOG UR HALT/LOAD 



END 



MQVE(2*^^F;i)SC0 + REAL(Tl56i)x2 3,JAP[MlX,FNUMxi + n); 

GO seek; 

Xi^S.4 



BEGIN SPACEaOG»I:=AtOJ,L39!9])CSEeK3; 
ENTRYJa ENTRY+i; 

_- GO readfi l ; — 



END 
IF A 
IF A 



ELSE 

CO3.C20J 

r0l,C9t9 



5]/MIX THEivi GU pitAQFlL ELSE 
lifFNUM THF.N Cin t^LAOFIli 



SFEKt 



AC23.[3a5]l» entry; 
MOVEC3#At2]*JARtMlX#FNUMX33); 
RFAD SFEKCLOfiCRCNT-H H; 



END ELSE 

IF FNUM*!0 THEN 

IF, .JAfiirMTX«FNuM?<3JgO THEN 



BEGIN 



end; 



ENTRY!* 
GO REAOF 



rcnt; 
il; 



IF LI5T0G THEN 

BEGIN 

IF MIXg Q THEN 



BEGIN WRlTE(Lt*3'lnDESC 

»aCTCaNV(0*BC3J3 

-^ tUCTCnNV{a « Rti3 y 



JEMO- 



WRITtSlN 

■ixie ^ 



*-i); 

gle; 



BEGIN 



write<le*3#iooesc 
.ncTrQMVfQ«er33) 



,aCTCUNVC4,B[ 333 
^.Cl»gJAR[MlXilJ3,[fi;6]f I 



#(IJ»JARIM1X*23),C6»63*I 

>; 

I !<r i te singlf; 



end; 

if fnum*0 then 

begin write clc* 3 he-of:^- 



#0CTC0NV(0*B[4J ) 
»0CTC0NVC4*BC4J) 

i'l}i 



OOSOOOOO 
OO&OIOOO 
00502000 



00503000 
00i>04000 



-cui: 



>000 



00b06000 

00i>07000 

-00*306000 



00'3U9000 
00510000 
00511000 



00512000 

00513000 
nn5i4nnn 



00515000 
0C516000 
00517000 



00516000 
00519000 

ons^onno 



00521000 
00522000 

005;ff3000 



00524000 
00525000 
Q05260Q0 



00527000 
00528000 
00529000 



00530000 

00531000 

-005 12 OOP 



00533000 
00534000 
0n5350( 



U1I3- 



00536000 

005 37000 
00S38000 



00539000 
00540000 
00541000 



00542000 
00543000 
00544000 



|4c| 






^6 

I be 



h- 



10 

11 



16 

I '7 
18 

19 
I 20 

21 

22 
I 23 

24 

2S 
I 28 

27 

28 

I M 
30 

Si" 

33 



34 
55 
36 

37 ~ 
, 38 



I 41 
42 



45 



I 47 



49 
I SO 



S2 
54 



56 
I S6 



WRlTtDflueiEi 

END else: 

RFGTN WRTTFfl„r*1>KFDrSi:; 



#UCTC0NV(0*8t4J) 

*aCTCQNV(4*at#l) 

-aJ 



OOb^iOOO 
00bi*6000 
00^)47000 



oosaeooo 

005<»9000 
00550000 



»( I :s!JAR(;MIX'FNuMx3 + 1 ] ),[6:6 3,I 
* CItsjARtMlX'FNUMxJ + ii] ),t6«6]f I 

JLi __„_„____ 



OObblOOO 
00b52000 
OQb^jQQQ 



writedquble* 
end; 

IF (HgfANALYZFnFi>GfTYPr>NruMjBfa]#jy(^KRUFrFR y»nx5i orQ o theN 
BEGIN 

BLANKCL.); 

FOR JtmQ STEB 



0055A000 

OOSbSOOO 
00556000 



5 UNT I i. I m l 



8CGIN 

M0VE(5*JUNKBUFFEKtJ3#U[n); 
WRITE SINGLED - 



OObbZOOO 
OObbSOOO 
00*^^9000 



end; end; 

blankcd; writedouble; 

FNf) FLSe: TF TYPE=ji Tri£N 



00560000 
00561000 
00562000 



Then 



IF SUMTOG 
BEGIN 

MOVE ( 7 » B » JUNKBUFFER ) ; 



1 1 = AN A^ yzf n^, s Q c x* g rB t/t j > junk b ufffr } ;, 



00b63000 
00564000 
0Q56500Q 



M0VEC2*jARCMIX.i]*JUNKauFF£r(UJ )i 

IF TYPE^3 THEN MQVEC 2* JA«[MlX, fnUmx3+ U* JUNKBUFFERC5 ] ) ; 

JUNKRuFF E RF 13:= .lUNWRl j FFiR L IJ & OCT V( CDATF U 2 7 > 2 7 ; 2tl > 



00565100 
00&6520O 
00565300 



JUNK8UFFERt73:» (Bt03 , Cl8«23 ♦! ) & lyNt U ^SiSi # 
SUMFlLfTOGi« true; 
■END; ■ v . , , -. ■ ..-■...- 



00565400 
00565500 

0056^^600 



IF TYPEsS THEN 
BEGIN 

RRFAK00^<NAnC]RESi>(Br21*Ai? 



00565700 
00565800 

ooafisqoo 



00566000 
00567000 

on56flnno 



IF IISTOG THEN 

BEGIN IF AC93<0 THEN WRI Te;C uC * 3 » ADORESSEKROrF) 
BFGiN WRlTFCLr*1/FUF/tU); WHnFSINGLFt 



ELSE 



WRlTE(LC*3^SUF»:>U,ZCNE^HEADJi """Rl TeS InGLE* 
WRITE(L[*3'DISKF*SET*THACK*PIN)J WRITESINGLe; 
WRTTEd. t*]/FAf:FF^FACFfSEfi,)f 



00569000 
00569100 
oo56qynn 



00569300 
00569400 
Q0:j69'in0 



end; 
writidouble; 



tmi 



IF SUMTOG THEN 
BEGIN 

JUNKBUFFERC7]'= JUNKBUF FEH [ 7 3 



00569600 
00569700 

Qn569flon 



& RrAL(Al93<0)r7<a7»l3 & 



FNDJ 



FILEAD0Rta«23t253 4 BC 3 3 C 33« 27? 6 3 
ilF CII«8I23,CH43)»0 THEN 10 ELSE 



00570000 
00571000 
00572000 



END ELSE 

IF TYPE»3 THEN 

BEGIN IF USTOG 



& 0057 3000 

I) [39 » 4216 3; 00574000 

Q057600Q 



TH L N 



BEfilN 

W(«ITE(LC*3#TAPENAMe 
i_ >R[53.i:6l6 3/iESI 



00579000 

oobaoooo 

QQ5 910Q Q 



^BC63,C6i63>eC633; 
WRlTE{LC*3*TAPEREtL#Bl.23,C14 5l03); 
WRlTE(Lr*3>TAfEDATE 



rtRITESINGLE; 

writesingue; 



00582000 
00583000 
00584000 



MF CI««DECM(BC23.C24»17J))«0 
ANB I0«0 THEN I8»C0AT£ ttSe I 



00585000 
00586000 
00587000 



00588000 
00589000 
00590000 



>T 



9 
10 
11 
12 



13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 . 

30 

31 ~ 

32 

33 

34 

35 

36 

37"^ 

38 

39 

40 

41 

42 



45 
46 



48 
49 
SO 

51 



52 
S4 



S5 

56 

5^_ 



W R I T E ( L [ * J * 1 A P E C Y C L . B t ii ] . t ** 1 : 'H ) ; 
WRITE(LC*J*TAPETRAN,8Ll],i;27:;?l]); 

End; . . —. 



l^RiTESINGLE; 

writeoouble; 



oo^yiooo 

005V2000 



IF SUMT06 THEN 
BEGIN 
RrTRVfl |iM3i« 



-Ai- 



00594000 
00595000 
00596000 



jUNKBUFFEHtO]:s JUNKdUFFERCO ] & BC U [27 « 27 t 21 ] ; 
JUNKBUFFEH[7] »= JUNKBuFFER C 7 3 & 9 t 7 ] L 15 ! 30 « 18 J 4 
. LUNCa3'a2>63 & BC? 1 1 39 «' A2» 6 ] ; ,, 



END J 
END ELSE 
IF TYPE»4 THEN QRUMTOGti 



00597000 

00593000 
00599000 



.IF LISTOG THEN 
IF SUMTOG THEN 



TRUE? 



exit: 



BEGIN BLANK(L)> WRiTtSP ACES C 4 ji 
HRlTtCTEMP*lO*JUNKbUFFERC*Ji; 



ENu; 



00601000 
00602000 
00 6 0HGOO 



ENO PERIPHANOiERi 
% \ 
PRQCfOURE GRnUPTflTALSCJfCQUNTU 



00604000 
00605000 
6 60 



00607000 
00611000 

no6i?ooo 



VALUE j; HEAL J^COUNT; 
BEGIN 
REAL lOyKEYf .S»UERR,tUTITLFl*UTTTLt2*l.i.iNMIN«LUlNMAy.*LA5TI. «L„ASTK,8 



ARRAY T0TERRC0J13]; 

LABEL LOOP* CQMPARE»ADOUP. WRITE I T# exit; 

SWITCH FORMAT SWFQRNl* . 



00613000 
00614000 
006 1 5 00 



00615100 

00616000 

-00617000 



XMAG TAPE 00618000 

(X4,"UNIT"»X7»"T0TALS"»X5*"MEM Al)D« ti>S"> X4' "BL AN^ I aPE'% X 3* "T APE PAR IT Y"006 19000 

.x4f">^FK PARTTV"«y5."NLJT RE AU Y" , X .-i . 'Mip SL P Ak 1 J Y" » ^ 7 . "Hysy w j , nn6^Qnnn 

*0ISK 00621000 

(X«*''UNITw,x7*"TaTALS''.X5,"MEM ADDRESS EU NOT READ Y"#X3# "READ PARITY"* 00622000 

X.^^^nATA PARITY". XJ>«Cil NOT RE ADY'* . X ^. '♦PFSn P AR JTY"' X 7« "HUSY" ) , npfea IQpfl 

XDRUM - 00624000 

CX4,"UNIT''#X7,"T0TALS"*X5#"MEM ADDREiiS'' * X4* "^^R I TE LCCK"*X3# "MEMORY RACE"00625000 

*X4»"MFM PARTTY",y^,"I^UT RE aL)Y" / X .^^ " HF S C P AR I T Y'S X7 > " HUS Y" J ^ , Q06f!600Q 

%P«lNtER 00627000 

CX«»'»UNIT''*X7#''T0TALS"#X5*"MEM ADORESS^'X 1 7.''PRINT CHECK"* 00628000 

.^— X4*"MEM PARtITY"*X5,"N0T HEAQY"^X3« "QESC P ARI T Y"# X7* "BUSY" ) . QQ629QQQ 

XCARD PUNCH OOoJOOOO 

(X'**"UNIT"*X7,"T0TALS"*X5#"MEM ADDfiLi5S"*Xl7, "PUNCH CHECK"* 00631000 

X4*"MF^ PARnY"*X5>"NtlT READY" . X 3* "nr SC P AR ITY"* X7* "BUSY" ) , Q0632Q0Q 

iCARO MAD 00633000 

(X4,''UNIt''*J?7»"T0TALS"*X5»"MEM A0DREJ>S"» X18*"REAa CHECK"* 00634000 

X4>wVAt inTY PK",X5>"N0T ftEAD¥«*>X3***aPSC PAR1TY*«»X7*"BUSY"). 00635000 



XSPO 

CX4,"UNIT"*X7ii"TQTALS"*X5#"MEM AOOSt^S"* X28* 
X4*".SP0 PASITY"*X5*" NQT I^EAOY" * X ^f "D E§C 



PAB I TY"* X7*" B U SY") » 



00636000 
00637000 
00638000 



tPAPER TAPE 00639QrOO 

(X**"UNIT"*X7*"TQTALS"*X5»"MEM ADDRE5S''»X28* 00640000 

X3*"TAPE PARITYHVX5*"N0T READY"*X3* "QESC PaRITY"*X7* "BUSY" )* 00641000 



XDCOM 00642000 

(X4,"UNIT"*X7»"T0TALS"*X5*"MEM OVRFLUw" » X28* 00643000 

X4*"MEM PARnY"»Xl*"DTC NOT READY"/ X3* "QESC PARI TY"* X3» "BUSY" )* 00644000 



FORMAT 
TITLEC"TOTAL EHRQRS BY GROUP FOR ">A6*A6)* 



BlTS(Xl6,"UMT",X10*"022"*Xll,"D"*l2,XU,"a20",Xn,''D19", 

X 1 1* "0 18"* X 1 1 * "D 17" * X 1 1 * "D 16" ) * 
RW{Xfl*flCX7*"W"*X5*"R")*////)* 



00644100 
00645000 
00646000 



00647000 
00648000 

00649000 



DCTAIL(X4*A3«A5*7(A4*X2*A4*Xa)*A4*X2jA4}J 
STREAM PROCEDURE GETLUNTI TLESCU>A,LUNMIN#LUNHAX*UTlTLEl »UTlTLE2 ) J 



OO6t}O00Q 
00650100 
QQ651q,QQ 



m 



f.3 
S4 



h 



10 

11 

12 
13 



16 

17 



19 
20 



22 
23 
24 



26 



28 
29 



31 
, 32 



34 
35 
36 
37" 



I 38 
39 



41 
42 



1 47 
48 



49 

I 50 



I S3 



55 
I 56 

5Z. 



VALUE j; 
BEGIN 

SI ;-A,; 



sjCSItwSItU)? 



D II «L U N M I N ; C I » » D I ♦ ? ; D S I s! C HR ; 
01:«LUNWAXi Dl»»DI+7; DS««CH«; 
OIlgliTTTLFI } rTtwnI.t-21 SIlsSUll 



n^i.9^ CHRf 



DIisUTITLEa; DI«»DI+2; 
END GETLUNTITLtS; 



Db:s6 chr; 



6fTLUNTlTUES(J*UTlTLES*UUNMIN#LuNMAx»UTITi£l#UTlTU2)> 
UOOPt % FOR D«UM tHROHS 



BEGIN SPACE(SUK,li; 

GO loop; 

END.J . , 



IF LUNMAX < UUN THEN GO EX IT; 

LASTL«s LUN; 

t ASTK m KEY I a SNOOP ( fiUM C ) > . t 316 T t 



WRITE(LPAtPAGE.])i* 

printmfid; 

MRITFd r*1yTITI.E*UTIT|,F1, M,)TITL£?i; 



WRITECLPA#15»LC*3)J 
UNDERLINE(L); 
WRiTFCLPA.i«s.i r*r>; 



WRTTFfLPA*SPACFS,ii^l 



WRITE(LPA,BITb,IF J=0 THEN 36 LLSt 21)/ 
WRITE(LC*3'SkvFaRMCJ]); WKnE(LPA*15*LL*])> 
UNDERLINE( L ); 



WRlTE(LPACOBL3'1.5»Lt*])i 
WRITE(LPA»RW); 
COMPARE! 



IF LASTL s 
BEGIN 
IF USTK 



LUN THEN 



KEY TH EN 



■'eEGlN, 
ADOUPI READCSUM»lOiiAC*])i CUUNT »«COUNT+ U 
^ FAR iJsO STFP 1 UNTIL 6 QU 



IF TESTBlTCA*n ThEN 

T0TERRCNJ=Ix2 + ClG!sAi:3],[i:^SUn'= TOTtRHCN] + i; 

uerr:^ uehh^ cif BinQ) THEN i use y^y^Q); 



LUNJs? SN0aP(SUM(7)),Cll53i 
KEY I a SN@0PCSUM(0));C3J6M 
END ELSE : ___^ 



BEGIN 
WRITE ITS WHlTE(LPA[nbL3>DETAIL»TlNuLLASTL3/ 
^ IF LASTK«:2i THEN "-CONF 



ELSE 



00651100 
006bl200 

no6:3Uoo 



00631400 
OO«5l500 
00651600 



00631700 
00651800 
00 65 1900 



00652000 

00653000 
00653100 



006^3200 
006b3300 
O0fi?a3<tO0 



00654000 
00655000 
006'36000 



00657000 
0065701C 
QQ»5aU00 



00659000 
00660000 
00661000 



00662000 
00663000 
00 66^1 000 



00665000 
00666000 

nn6ft7ooo 



00667200 
00667300 

no6o7ano 



00667500 
00667600 
00667700 



00667800 
00607900 
006^6000 



00668100 

00668200 
00666300 



OO668AGO 
006O8500 
00668600 



TF I lIKt > 



DECL(UERRf iFr33*DECLCUEHR*tCr3)# 00668700 

F0« N»»0 STEP 1 UNTIL 13 DO OECLCTOTERRENJ ) ); 00668800 

LtiMMAx THEN flO Exit; nn66ftqon 



IF LASTl^lUN then WRITE(Lt'AtOBL3); 

ZEROC H/TOTERK); uERRs*o; 

LASTK;g KFYr 



LASTLI" LUN; 
60 AODUP; 
XMOi . 



00669000 
00669100 
0Q6 69 200 



E ^tTl 



END ELSE GO 

GO coi^pare; 



00669300 
00669400 
00669^00 



^vhiteit; 



eno grouptotaus; 
% 
pRucFnuRE rephrtapftest; 



00669600 
00669700 
006/0000 



00671000 
00677100 
00677200 



h 



1 

I ^ 

3 
4 

6 
7 

9 
10 

12 
13 

15 
16 

18 

19 
k 20 

21 

22 
I 23 

24 

25 
I 26 

27 

28 
, 29 

30 

31 ~ 

I « 
33 

34 
3S 

36 

37 ~ 

38 

39 

40 

41 



42 
43 



♦5 
46 

I " 
48 

49 

I 50 
51 
52 

I i3 
54 

55 

I 



"LGIN 

IMTEGtR R; 
REAL L i *P* Q *ti*T» 



RCNT^CHRCNT*lNRUCMT#wR'J*i1Ii>lwHD»PrR#iyi£UMj. 
WC#SZ*BSl2E'CI0D»0l0nCF*lDu'RESULT» 
PATTFRN>PA TTrRiMi .PflTTrftN?;^ nn^T t..«;frt Hrct,- 

ARRAY HMEISStOSoJ* l3UFrCOJ3J]> 

BOOLEAN M0D3l0S,BCL'NExraG^LA3Tuii,,^L:Ki:.TL;G,;;UPTa(i; 
D£r i N £ „ 



006/'73CC 



006/7600 
006/7700 



LAST a8UFF[27]#, 
NEXT «BUFF[2l]#* 

PftTT — *ei,.iFF[i^3)y« 



000r7900 
0067600G 
Q n z' ti 1 



LUCN =8bfFrRJ## 
FSTWRD«BUFF[8Jrf^ 
XLATF =R[\FF[n}t. 



00678200 
0067830C 
0Q676/I0C 



MIN(MlNl,MIN2)s (IF MIM<MIN2 The^ MIM ElSE MIN2)#; 
LABEL AGATN»DUffrfMnV>pnTT' EUL/£>^>UTFST>F)^TT; 



006/abOO 

006/86GC 

-006/8700 



006/8900 

006/3950 
00679nnn 



F"ORf^AT 00679100 

TITLEC'ReAL time TAPE TESTS hQR uNHEcOy/E«ED I^RIT£ FA ILURtS'S /* 00679200 

DETAlL{A5Jx3rA3^X6J^MIX^"M3» ''^''32679400 

X3,"CHANN£Ls"*l2,X3*"PHVSlCAL REEL* 'MS)* 006/9500 

Q9JNAMFfXd6>"CRJ JOB NAMF g "> A 1 * A^> '^/''^ Al . Aa 1 . 00679Afln 



FILNAMECX88*"FILE NAME = " * A 1 * A6* "/ "' A 1 , A6 ) » 

0RIG(/,X31»"0RIGINAL I/O P£bO. = "*a.Xl,U# 

-^ /^X31#"nRrGlNAL REoULT UtSC. s "*a>XlMlWW 



RDCCX88*"TAPE NAME 

X88*"REEL 
X8fl,'«CRrATTnN HATK 



X88* "CYCLE = 

M0UE(/,X31#"('SA6,",", U," rtURDS 
TESTNDf////>"AKALYc;T.'^ F OK TEoT ND. 



«/AI,A6»"/",a1aA6,/, 

"*A5.x?*n.y. 

" M 5 ) ^ ■ 

M ..iion^; Q,^ BLOCK # 'Sib*")"), 



006/9700 

006/9800 

006/9900 



00680000 

ooeaoioo 

QQ68Q?Q0 



X2#"C",A6*" WRITE,' 



"fl?f 



»A6>A«," PATTERN)", 



00680300 
00680400 
006^0^100 



DESCC/// ,"TEST RAITEWN ", A5^ X9, "CHANNEL^"/ 12 > 

//,"I/0 DESC. = "»U'X)*U, 

/^••REbULT DE3C, = "'U*Xl,a#/)* 

waR[J(y/>l4#<» t^CRJS >^ERE(". A3, ")«",/)> ^„____ 

EQLSCX8#6C2(8C"=")," ")#" "))» 

UNK(/*X27*"*«*** WORDS "»I4»" THRU ",14," NOT LOGGED, "^ 

"THERFFORF rfmTFNTS UNKNOWN *****"), 

SIZERR0R(/*Xi6,"SIZE ERRufiC "M5*" rtQROS ",A*,")"), 

N0ERH0RSC/,X16,"NG DATA ERRORS"), 

TA LL Y(//>Uf" THHS (IN ",U ," W O o) ni FFEH FRlIM TCST RFCflRn 



00680600 
00680700 
00680800 



00680900 
00681000 
0Q6B1100 



00681200 
00681300 
QQ6 eHQ C 



"(FI«St in WRO «,I4»>^)"3; 

STREAM PRnrFDDHF FTI LPATTFRN f PATTFftN,K .M,M,BUFrrR U 
VALUE k,m,n; 
BEGIN 

dh ^riiffer; sugpATTFRiMi srissj^K; 



0068150C 
00681600 
QQ6617Q0 



00681800 
00681810 
n nfifltonn 



m(dsj«n chr; si isSi-n); 

Sn«BUFFERJ DS«»5 WDS; 
FNID FIl I PATTFftKiV 



00682000 
00632100 
00682200 



BOOLEAN STREAM PROCEDU«E C0mJ» A»ECNEXT, L AST ) > 
BEGIN 

STtsN FXT; nrirl AST; TAM Ytsp 



00682300 
00682400 
nn6agi^nn 



UBilf Sc^DC THEN BEGIN TALLYUOi 
COMPAREl»TALLY> 
FNO f.nMPARFt 



JUMP OUT; END); 



00662600 
00682700 
00682800 



00682900 
00683000 
0068 3100 



• ;i 






>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



19 

20 



21 
22 



23 
24 



26 
26 
27 
28 
29 
30 



31 

J3 

34 
35 
36 
37" 



40 
41 
42 
43 



45 
46 
t7 
48 



49 
I 50 



51 
52 
53 
54 



55 
56 



"5i 



STRHAM PROCtDURL" BU ILOP ATTlif^N ( Niu03 103^ P ATTEKN ) ; 

VALUE M0D3I0S; 
BEOIN ^ ^ _.^ , 



di»»pattern; 
MQD3inSfDTi8riT-7i ns;«LTT"""i 



00683200 
006bJ300 
QOtadiaOJ 



nu*nT4iSii 



0068350C 
006a3600 
00683700 



DS:=LIT"''"; DS:*3 LIT"JiC"; 

END buildpattern; 

■STRFAM PRnrFDliRF MH^K V ( r^0^ > H(lRE: > THF kL . y r^npF ) ; 



VALUE bcl; 

8ESIN LABEL 
STiaHEREi 



00603800 
00683900 
n00H4Q0Q 



niJi LOCAL 
niisTHERE; 



svDl»svsi,8v; 



BCLC8(SVDI !=Di; 
svsi:=si; 

— , nii^svni? 



00684100 
0068^200 
00684300 



DI:kLOC bVi Ul;=DI+7; DbJ=CHH; 

si!=xhuff; 3i:=oi+3v; 
n.s?=CHH,; .si?«.svsni 



00684400 

00684500 
00684600 



Jump out 

OStsWDS; 

tin ^' .'•■■■ . 



TO xiTj; 



0066470C 
00684800 
00684900 



ENO MUVEX; 
STREAM PROCEUURL 

VAi.uF n ^ld on ; 



editrcn*lucn/BuFF/.l); 



00685000 
6 5 1 C 



BEGItv 

di.!«l; si!*lcc lqcu) 

OS; 84 dec; Ul taUli)-2j- 



si iseiiFF; 



nCl)I! = di+^; acnciAOE); 

DI:=L; Db:=3 fILl; 
EMD F.UITR; 



00685300 
00685400 
00 6 8 5 500 



ji 



i + 1 ^ HC L C T /» L L ) ; , 



STREAM PROGEDURL 

BEGIN 

STigRiirri ST 



GKTvALUES(BUFF,CHRCNT>hROC^T,FSl wRU); 



tS U^ i 



6 b 5 6 
00685/OC 
0L6dJd.aC., 



01 :=chrcnt; 
di!=wrocnt; 
Qii=rsTnHn; 



01 :sni + 5) Ui! = 3 CHi-i; 
DI J-DI+6; US:=2 CHR> 



00685900 
00686000 



OC6062OO 
00666300 

n068640i,; 



EHO GETVALUES; 
PROCEDURE BREAKOCWNRESULrCN^NEUM^RESULT); 
VALUF N«nfum; rfal N>NFLJM^Hf5ULT; 



00666500 
OO6866OO 
00686700 



BEGIN REAL 0/ 

IF (GlJ = (AMALYZEDESC(3*.n:^JM,RESLLT» JljNKbuFFER5"l)'«5) 
RFGIN 



geQ thlm 



006db800 
00686900 
00687000 



BLANK (D; 
FOR JJaO STFP 
BEGTM 



5 UNTIL <i DU 



M0VE(5»JljNKbUFFERt'JJ»LLwJ )> 
WRITE(LPA,15^LC*1 ) '' 

end^en q; 



00667100 
00687200 
Q Q6873Q Q 



0068740C 
00687500 
00637600 



blankcd; 
END 8«Eakdownhesult; 



REWINDCTST); 
READCTST[N03*5*BC*] )/ 

Ru n DPATTFRMrMninrnstsbi fn f vj . r k? 1 '^ ^*pa ttfr.v j; 



00687700 
00687800 
00687900 



00688000 
00688100 
00688300 



FILL BUFFC*J WITH 

OCT1201020304050607# 

nf:Ttniii3t40fli5i6i7> 



QCT726162636465666/* 

0CT707i73746C7b767/* 
QCT5?4l424J44454ft47> 



00688400 
00686500 
00688600 



OCT505l5354405b5657* 
0CT2021222324252627* 
QCT3031333433353637; 



00688700 
00688800 
00688900 



00689000 
00689100 
00669200 



h- 



8 
9 
10 
11 
12 



13 
14 



IS 
16 
17 
18 
19 
20 



22 



24 

25 



26 
27 



28 
29 
30 



31 
32 
33 
34 
35 
36 
37" 



38 



40 



42 



44 
46 
46 



49 
SO 



52 



55 

56 



FILL BMLSSC*] WiTh 

'• P-BIT'% 
" 1,-1=^1,1". 



00669300 
00689400 
QQOBV'SOn- 









A-BIT'% 
B-BIT"; 



00689600 
006a9700 
Qn6H9flOQ 



JL 



ASA IN i 



00Ob990C 
00690000 
n(l690lC0 



REAOCTST*210»BC*] J; 



RESULT:= BC^l; 

oiodcf:- qiod.ccf]; 
I^C»"QIQn.rBM03? 



00690300 
00690400 

on69 Q ' ^n n 



WRlTE{LPAtPAGL3); PRINTMFID; wHi TE. C LPA^ TI TLt ) / 
WRITE(LPA[DBL3*FDATF/r»sBC206J#DAYCT)#ACTDATE); 
WRTTFfLPA»nETAlL 



006V0600 
006^0700 
O0690H 0G 



*ATIME(Bll] .C3J24 3) 
/NEUMCsTlNULUNirtOlQUf [3 



00690900 
00691000 
00691100 



5JX23] 



»BC0J. [18:23+1 
#Bt73,t30Jl83 



00691200 
00691300 
00691400 



-4. 



IF MIX/0 THEN 

WRlTE(LPA»LlBJNAME'BC20l3 
IF Bf0l . [ 9191^0 THEN 



00691500 
00691600 
0O6917Q0 



[6l63/»B[20l3*BL2023.C6:63^Bt20 23); 



00691800 
0C691900 

00<392Q0-C- 



WRITE(LPA#FILNAMe»8C2043.[6«63*B[2043#BI.205 3,C6»6 3»B(.205 3); 006V2100 

WRITEdPA^ORIG 00692200 

» ncTc c N'v ( Of GiOD)* n cTcnNv (4 ^ .0100) 00^92300 



*QCTCC^VCO, RE SULT)*UCTC0NV(4, RESULT) 

}; 

BRFAKDnt^NRF.Sl,lLTc7»NE0l^tR e ,.SULT ii 



WRITE(LPA,M0DE 

»IF BL(0l0D.C2ni J) 

^ ^JBIX ■ 



006V240C 
00692500 
nn69?60iJ 



THEN "BINARY" ELSE "ALPHA " 



»BC13 

>; 

WHITFfI PAtRnC 



[27;213 



00692700 
00692800 
Q0fi92900 



00693000 
00693100 
00693200 



,Bt5].[6»63#B[53.BC6i,C6:6 3,eC63 

*Bt2].[l4:i0] 

.IF fns«DFf;M(Rr23.f24»l73y5«0 THEN 



»DAY(' 
*BC23 
-34 



OixT FLSF n 



'0) 

rai 



00693300 

00693-(»00 
0Q693500 



73 



0100 !s? OIOD 8 
rOR lt«0 STEP 

'■.fl f S' lN :-. ■. 



1C18M2163; 
I UNTIL 15 DO 



00693600 
00693700 
00691800 



WRITE(LPA*T£STNU 

M + 1 
#IF (BCL;gI>6 



00693900 
00694000 



AND K143 THEN " ALPHA" ELSF "BINARY" 



»If I»U THEN - SKEW" ELSE IF I«15 THEN " 
IF I=»7 THEN IF W00310S THEN BMESSCOJ ELSE 
FLSF BMFSSEI MUD 71 ^ 



00694200 
00694300 
069<*40 Q 



FLUX" ELSE 
BMESSC63 






I>13 THEN " 



00694500 
00694600 
0069470Q 



tl^\L If BCL THEN "-OFF" ELSE "-UN 



WHTTFn,.PAfnESCy"WRTTF!L 



*{RESULTiaB[N«eIxi2+83)t [19123 ♦! 
>0CTcaNVC0»l0D»a0IU04REAL(N0T BCt J [21 1 47 1 1 3 ) 
>Q CTC 0N VC4 >IQ(P) 



"00694800 
00694900 
Q G6V5 0QQ 



00695100 
00695200 
069 5 300 



.._J^'^ 



h 



1 

I 2 
3 
4 
I 5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 



I 23 
24 
25 

I w 
27 
28 

I M 

30 

31 ~ 
, 32 

33 

34 
I 3S 

36 

37 ~ 
I 38 



39 

40 

42 
43' 
I 44 
45 
46 

I *^ 

48 



*9 

I 50 
51 
52 

I ^3 
54 



S5 
I J6 



j.DCTCnNV(L),REbUUT)'UCTCLiNV(4,Rti>ULT) 

); 

RRKAKOnwNRC,Sl.:LT(;?iNFiiM^Hr.SULT ) ? 



IF CBSIZElsABS(OlODCF-RCSULT.[CF] ))<WC 
THEN WRlT£tLPA'SlZERR0R»BSUe,5r''WRITE«» 
WRTTF n PA.wriRn.wr.Ti-- rCi tHi-m "rci ** Ffsr »'Th|Twv; 



fillpatterncpattekn 

*I+REAL(I 
__ . .PATT); 



a5)#4*/txREALCI<UJ*l + REALCI>U) 



IF WC>6 THEN 

BEGIN EDITR(6*1*PaTT*L); 
WRTTEC L P A f 15« L t* ] )t 



end; 

if wc>12 then 

IF CR>»lNr WUD 



eoiTR{R»WC+l*R*PATTfL); 

WRnE(LPAC06L3>i5*LC*])/* 

W«rTE(LP A >DESC » **RE A D 



WRlTE(LPA,EQLi>); 

6)50 TH E. N B l gf) E1.. SH hL ,A NK( li 3i 



*(RESULT!5BtN+lJ ). 119:^] +1 

#OCTcONV(0#IOQJslUU(il[iia5i*/:i]) 
»nCTCaNV(4^ IQI,,)) 



#OCTCONV(0#RESuLT)> OCTCONvU'RtSUuT ) 

); ■ 



GtTVALUES(B[N + ii]^CHRCNT*WRDCNT*LaCNj; 

SZ:s IF CBSlZF:sABSCQlUDCF-htSULT.CcF3))>WC THEN Wc ELSE 
IF B LCRE S I J I . T . U )i: n) THEN B S jZL gl i ^c 



BSIZE ' REALCRESUUTtClS^aisO); 

IF SZ^WC THEN WHITE(LPA*SlZtRR0R>SZ#4#«R£A0«); 
IF WRnrhlTgi THFNi WRTTrf I PA.tcOfBBnB<;) gi^^r 



BEGIN 

Wf?lTECLPA»kvCRU*SZ*IF bCL THEN "BCL" EliJE "iNT"); 
P» S S Z DIV e " REJAlCCKig^/ Mnu 6 3S03J - 



IF R»0 THEN R«a6i 

WRDi*or PTRJsS; 

MI NWRQ t bM I Ni f WROC N T j 7 ) -K H 



MORETQGls WRDCNT>7; 
FOR PJsO STEP 1 UNTIL 
RFTilN 



U DU 



M0VE{6#PATT*NEXT); 

NEXT0GIBFAL5E; 

FOR Tr»ffTR STrP 1 UNTIL MINWRD 



BEGIN 

IK (SJsBUFFtTJ) 
BEGIN 



jm. 



> i^RD + b THEN n=MlN»^RD ELSrE 



MO VEX ( BCL# B CN + T- 3 ] # BMf F C 2 1 + S- WR J> XI ATE ) I 
IF (PTR'«PTR+n>H THEN IF MQRETUG THEN 
B EG IN ■ 



BLANKCL); 

EDITRCS + J.-rtRD*»ilRD + lfNEXTf U)' 

WRITFtlPAtlSM. C*33> 



WRITE(LPA,UNK>S+2flZ>; 
GO ENtlTESTl 



nextogj'True; 
end; 
end; 



IF P»0 OR P»D THEN BEGIN BUANK(L); 

IF NEXTQG THEN 

IF LASTQfl THFI^ 



GO MOv; END ELSE 



0069^^00 
00695500 
0Q6V5ftQn 



006V5700 
00695800 
Q0ft<i590Q 



006V6000 

006y6100 

oot>V6?nn 



006*6300 
00696400 
00696500 



00696600 
00696700 
0^ 9 6 800 



00696900 
00697000 

00697100 



00697200 
00697300 

00697000 



00697500 
00697600 
00697700 



00697800 
00697900 
00698000 



00698100 
00698200 
0698300 



0O698A00 
00698500 
00698600 



00698700 

00698800 
nn69ftQnn 



00699000 
00699100 
00699200 



00699300 
00699400 
00699500 



00699600 
00699700 
0069980 



00699900 
00700000 
00700100 



00700200 

ooi'ooaoo 

Q07Q04QQ 



00700500 
00700600 
00700700 



00700800 
00700900 
00701000 



007 01100 
007 01200 
00701 30 



IS 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 
27 
28 
29 



30 

31 
, J2 

33 

34 
I 3S 

36 

37' 
I 38 

39 



40 
41 
42 
43 



45 
46 
•7 
48 
49 
50 
51 
52 
53 
M 



55 
56 



^ 



IF COMPARE(NEXTn-AbT) THt-N 
DUPE:IF DUPTOG then go eOL EL5E 



BEGIN hHinECL.I.*]'EaLb); 

uuPTnG;-THuE; 



ELSE BEGIN 



END 



EDITi 



LASTOGJsNEXTOGi 
ECITRCIF PXD THEN 
OUPrnG»g|-AL.SE? 



6 LLiiE R^'Aha + l*NEX7#L); 



ELSE 
ELSE 



END 
GO MCV 
IF LASTOG 



WRITE(LPA,15/LC*])/ 
EOL! WRDl*WR0+6; 

end; 



THEN GO I::QIT FLSE GO UIJPE. 



END TEST I 

WRITE (LPA#T ALLY* CHRCNT»WHOCnT»F ST WRD+U; 
end; ^ : . 



EXIT; 



end; 

IF crcnts 



=kcnt+i)^tapetest3 then go again; 



rewinoctst); 

END REPORTAPETEST; 



procedure hica); array acq]; 
a[o]«sacu>=sA[7] jsmarker; 



9DULEAN procedure CMP(A*8); ARRAY A,BC03; 

CMP i^IF (TlJ»At7],[7«263 ) < ( Tg; 5B[ 7 3 , [ 7 : 263 ) Th£N TrUE ELSE 
-— — IF T1 > 1? THEN FALSE Fl SE _^ '. 



IF (Tl5=At03.C3«63) < 
IF Tl > T2 THEN FALSE 
IF CTl>?Ani.[27»2in 



(T2:=bL03 ,C3:63 ) 

LLSE 

< {T2:«qri3.r^.7{^in 



TMCN TRUE ELSE 

THFN TRtiF FLSE 



IF Tl > T2 THEN FALSE ELSE 

IF CTl«»At73.C33t63) < ( T2S »8 [ 7 3 . C33 !6 I) THEN TRUE ELSE 

IF Tl > T? THEN FAISF FLSF 



IF (TH=A[7],[3V»63) < C I 2 J =B [ 7 J . [ 3y : 6 3 ) THEN TKUE ELSE 

IF Tl > T2 THEN FALSE ELSE 

IF (Tl{«AL73.C4t»833) < ( T2 ! sBC 7 J , C aB : 3 3 ) THFN TRUE ELSE 



IF Tl > T? THEN FALSE ELSE THUE; 
BOflLrAN PRQOEDURE CMPt UNCA.hu Af^RAY A^BCoM 



CMPlUNIsIF 
IF 



(T1J»AC73.[1«53) < 
Tl > T2 THEN FALSE 

CTl«pArQ].[3t63? < 



IF Tl > T2 THEN FALSE 
IF (TltsAtl3,[27J2n) 
IF Tt > T? THEN FALSE 



(T2:s|iC/3.Cnb3) THEN TRUE ELSE 

£LSE 

(T2;=til01,[3»6,n THE N TRU F Fl SE 



ELSE 

< (T2I«8CU,C27I213) 

ELSf 



THEN TRUE ELSE 



IF (TltsAtn ,[3»2a3 J < CT2»»dCl] ,[3:243 ) THEN TRUE ELSE 
IF Tl > T2 THFN FALSE ELSE IHue; 



BOOLEAN PROCEDURE I WLUNSOHTC A ); ARRAY ACOJI 

BEOIN 
wPAD(SwlNrjiriO.Ar*3i; 



0070U00 
00701500 

nfl7m6nn 



00701700 
00701800 

Q n7Q i9no 



00702000 
00702100 

00702200 



00702300 
00702400 
noTQPbOQ 



00702600 
00702700 
Q0 7Q 2 B 00 



00702900 
00703000 
00/03100 - 

00703200 
00/U3300 

o o/ u aso Q 



00703700 

00703800 

- 007 4 2000 



007^3000 
00744000 
O 745OQ 



00/'46000 
00749000 
Q Q75 QOOO 



00750100 

00750200 
007i3Q30Q 



00750400 
00750500 
00750600 



00751000 
00752000 
0Q^t?3QQ Q 



00754000 
00754100 
0Q755QQ0 



00755100 

00755200 

- 00 7 55 30 



00755400 

00755500 

-00 755600 



00755700 
00755800 
0075 590 



IF AC7 3«MARKER THEN 
BEGIN REWINDCSWINCJ]); 
INLUNSORTts true; 



00756000 
00757000 
0075BQ&Q 



End; end inlunsort; 

X 

BOOLEAN PROCFPIIBE TnSCRTC A ) I ARWAY ..AL O 3,J. 



00759000 
00760000 
7 61 000 



00762000 
00762050 
00762100 



I itii 

'471 I 
411] 



■>2 
B3 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 



12 

13 

14 

15 

16 

17 

18 

19 ~ 
I 20 

21 

22 

23 

24 

25 
I 26 

27 

28 
I 29 

30 

31 



I " 

33 

34 

I » 
36 

37" 

I 38 

39 

40 

)*' 
42 

43 ~ 

) M 

45 

48 

49 
I 50 



52 
I M 

94 

55 

I 56 



BEGIN 

IF SND0P(SUMC7)),C1«5] > 
e l s e; R E AD C. SuM , t , 10. A[ *l ) , 8 _ 



LUNMAX IHEN lNSaRT:» TRUE 



tNO INSORTi 

:■«■;■•■■■■; 
PRQCtnuSE nUTSnuTfRtA); VALUF ft 8 flnCiLEAN Ri 4RRAY ACfnt 



00762200 
00?02300 



00762500 
00762600 
00761000 



BEGIN 

IF 8 THEN 

BEGIN JU NK B uFF t K L 03? = JU i > i KB U fF fc. Rl7j» a MARKER* 



ENP 



WRlTE(SWOUTtvJ3MO#JUNKBUFFERX*3); 
RtWINO(SWOUTCJ]); 
Et SE WR I TEC SWn IT [ Jl , 1 Of A f * 3 ) i 



00764000 
00765000 
007 66 000 



END outsort; 

PROCEDURE REPORTPRNJ 



00767000 
00768000 
00769000 



BEGIN 

ARRAY TOTERREOU53; 

RFAl in. I A.<iTPRN'PRIM»l ASfKr Y . KF Y * UF«W1 



00770000 
00 7 70100 

0077 1 000 



LABEL AGAlN*COMPARE» ADDUP*WHlTEn,EXlT; 

BOOLEAN tog; 

FORMAT 



00772000 
00773000 
On77<tO00 



TITLEC'TAPE ERRORS BY PHYSICAL ReELNUMBER'V/* 

RITS fXl7.'^PRN",Xl0."n22">X11#"n36'^a/il*''ng0".Xl1,"D19' 



00775000 
00776000 
007770QQ 



00778000 
00779000 
0Q780Q00 



XlU"Dia"^XH,"DirVXU*"Dl6",/» 
X5»"PRN"tX7*"T0TAl S"M5f"M£W AQpHLoS" > Xa> '♦RL ANK TAPe:'*» 



007dl000 
00782000 

00783000 



Xa^^TAPE PARITY^^XA/^MEM PARI TY"> X5, "NOT READY"* 00784000 
X3»"DESC pARnY"*X7*"BgSY"*/> 00765000 

X'^»W»»»».Vf7. "■■««---"»lC^«"»i».. mmmm»m^f*^^t^:,n.mmmmn nm^m^ » 00786000 



X3,«---- ------.., x7> "----" W/* 

X6«8CX7/"w"tXS/"R"}#^///Jf 



••VX5*"' 



UNITScXSf^PRN'SXS^^TOTALS"* 

X8,"MTA"*x3,"MT8«»X3#"MTC«#x3#"MT0".X3»"MTE''#X3» 
^- "><Tr'%X.:j,"MTN^*X3f"MT>J">X1t"MTK".X^«"MTL">X^> 



00787000 

00788000 

no7rt9ooo 



00790000 
00'' 9 1 000 
Q Q79 2QQQ 



X5*" 



".I r T n nr :;;,i n — r, r«, j^,., ,■ '■ it:,, r njr ■ • i ■ ■ r n jf ■ ■ i ». r n jr uu > t/t uuu 

"WT'^'%x3,"MTN"*XJ*"MTP"*xi*"MrR"*X3»"MTS"'X3#"MTT''»/ 00 7 9 3000 



«.•" 



'X5* 



"♦XSMdCXi*"-""-")*////)* 



SgBfX?M^^A'^fyrA4rX2/A4,X^?^A4fX2fA4?> 



DETAlL(X2f I5'A5*X2»A4»X6»16CX2*A43)I 
■AG:A IN «■:■■■'■■■'■■■. ■■ 



00?'.i4000 
OQ/V?QOQ 



00796000 
00797000 
Q079800Q 



PRINTMFID ; 

WRITE(LPA, TITLE); 

IF TOG THEN W RI T E (LPA' U NiT S ) lL^E tSRiT L(LP A» B I T S ) ; 



00798010 

oa/'9yooo 

00800000 



2ER0(16*T0TERR)* UERR» 
ReADCS0RTE0*10*AC*3); 
LASTPRNIa AC73.M5llflJ? 



o; 



LASTKEY«» AC03,C3J63; 
COMPARE t 
IF LASTPRN a (PRN:»AC73,ri^n8J J 



OOSdlOOQ 
008Q2000 
0QaQ3QflQ 



THEN 



00804000 
008U5000 
00SQ6O00 



BEGIN 

IF LASTKEY* AC03«C3t6] 
RFGIN ^ . 



THEN 



ADPUPI IF TOG THEN 
BEGIN 

TOTERRtl.UN}sA[73»f2 {^4 3 ] 1= T HT ERH [LUM l i 1 ; 



00607000 
00808000 
00809000 



00810000 
00811000 
00812000 



U£RRI»UERR-^i; 
END ELSE 
8 £ S IN 



00813000 
00814000 
QQ6 15Q 0Q 






46| 
47 
48 

'16 



52 

53 



h- 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 



16 
17 
18 



19 
20 
21 
22 
23 
24 



25 
26 



27 
28 
29 



30 



32 
33 



34 
35 



36 



37 

38 
39 



41 
«2 



46 
»7 
18 
49 



52 
53 



54 
55 



FOR JJ=0 STEP I UNTIL t DO 
IF T£STBITCA*J) THEN 
TnTERHCNtsJv2-»CTL i ;aA C3l. [a4 l l 3 ) 3;s T i:j TKRHi;i\3-»i; 



UERR«» UEKR+ CIF BLCIO) TH£n I ELSE 32766); 

end; 

REAO(SORTED^10* ft [*3 ); 



ooeiGooo 

00617000 
OQ blB OO O 



00819000 
00820000 
00 6 210 



Et^D ELSE 
BEGIN 
WRITEITI IF TOG 



TH E N 



WR I TE C LPA C 08L ]' DETAIL' LAST PHn* 

IF LASrKEYa2l THEN 
UeCLCUERR)t 



00822000 
00623000 
00fl2<t00Q 



•-CDNF" ELSE 



FOR N»=0 STLP 1 Until ib do DtCLCTOTERRtN])) 



00825000 
00826000 

ooa?7ono 



ELSE 
HRITEfLPACQPLUSURfLAJTPRUf 



IF LASTKEY«21 THEN ♦♦-CQNF" tLSE " "* 

DECL<ueR«.CFF] ), DECLCUERR . C CF] )* 

FOR Nian STEP 1 UNTIl 13 DQ UFn ( TOTFRR T N 1 ) 1 i 



00828000 
00829000 
n(j8.n)000 



IF PRN > 99999 THEi^ GO LXlTi 

IF LASTPRNX PRIN THEN WRI TE C LPA t DBL ] ) ; 

<:£R0(16»TQTERR3* UERRtBO? 



00831000 
00832000 
nfi833i 



IQOO 



LASTPRNJ* 
LASTKEY:« 

GO AonuPf 



prn; 

A[0].C3»6]i 



0063^000 
00835000 
00 83600 



00837000 

00838000 

■0083 90 00 



END 
END ELSE GO 
fin COMPARF.; 



writeit; 



00840000 

008m000 

■ 00842000. 



EXITJ 

REWINDf SORTED); 
TF NOT TQG THEN 



00843000 
00844000 



ML. 



>oon 



BEGIN 



xiiai. 



T0GJ5 true; 
GO again; 



End reportprn; 
% 
PROCFDURE repqrtbadisk; 



ooa<*6ooo 
ooa^/ooo 

00848000 



00849000 
00850000 
00850020 



BEGIN 



REAL LASTEU'LASTSU' 

array BRFAKQnwNrr.;yi 



00850040 
00850060 
QQ650QflQ 



DEFINE 

8K sBREAKOOWN«» 



00850100 
00850120 

oneiaOi4o 



su 

SET 
ZONF 



sBKC2]#, 
=BK[3]#, 

«BKC53#,» 



TRACK»iKC6 3#/ 
HEAD a0KC8 3## 
PIN «SKr93<; 



00850160 
00850180 
QQ65Q200 



LABEL AGAIN/LINE1*SETUP»£XIT; 

FORMAT 

TJTL E C^ B AOI S K ARE AS B Y D IS K A OUKE'iiS FQR E U "^ I 2»/ 



00850220 
O0850240 
00850260 



HE AD I NG( X4f "BEG I KN I NG^t /» 
— _ Xa»*^ADORfSS segs 



00850280 
00850300 
00850320 



"TRACK 
X4*"--' 



HEAD PIN'S//. 



■ aia wMiia m.m •"»////)» 

PR EV I OU S f I i £♦» t X 6 « ^Q I SK 



img 



00850340 
0085 0360 
00850 380 



-------- ----♦«, X6*"---- 



fm,»,//// i . 



DETAIL(X4#Al»A6*Xl»18'X5*Al*A6*Al»Al*A6#X6# 

J1*X5>U,X5*A2*X4»I2»X3»I2)' 

S ur(**su 'SU»//); -■■■■■ ■ ■,■■ • -■-■■^■^ 



00850400 
00850420 
00 85 Q 44 Q 



00850460 
00850480 
00850500 



46 
■17 

4li| 



62 

63'. 



.._b 



h 



2 
3 

4 
S 
6 
7 

e 

9 
10 

11 



16 
17 
18 



19 
20 



22 
23 



24 
25 



26 
27 
28 
29 



34 
35 



36 

37' 



( «1 
42 



«6 

I 47 
«8 



49 
I 50 



I i3 
54 



95 

I 56 



% 

LASTEU«=64; 
AGAIN 8 



READ(SORTED»lO*At*n; 

If ACn;<MARKER THEN BREAKDOWnAODRESSc aC2 3fBK3 

Fi SF an rxTT; _____^_^_ 



IF eu^lasteu then 

BEGIN 
IF .SUalASTSl iH Eiv 



Wll^EU wsiteclpa^detail 

*A[23.C6:6)*A[23 



*A[5J.C6J6]# AC53 
*IF A[4J LS3 THEN 
> A [ 6 3-» t ft 1 ft 1 1 A [ ft 1 



n /n 



ELSE 
« 



fSET*20Ne»0£CH(T>SACK)#HEAD#PIN 



) 



ELS F 



BEGIN 



SETUP; 



WRlTE(LPA[DBu])> 
HRlT£CLPA*aUF»5U); 



LASTSU:»SU; 
UASTEU:=EU; 
fiO L IN E 11 - 



END 
ENU ELSE 
BEGIN 



WRlTECLPACPAGt]); 

printhfid; 

WRITE(LPA>TITI.E»EU); 



WaiTE(LPA*hEAOlNG); 

GO setup; 



^mi^ 



ex IT I 



WRITECLPA); 
GO AGAIN; 



ENU 

j; 



rewindcsorted); 
repqrtbadisk; 



PHUCEDURE REPORTAOORESS* 

begin 

RFAI I>J>MEUM*MATK'TMn*REPEATS# 



LASTEU'LASTSl*5UER«'LASTKtY*LASTERH0R^ 
REAL LASTADR; 
ARRAY BREAKDQ WN[0 ;9 j ; ^ 



DEFINE EU «BREAKD0WNCIJ»* 

SU «B«EAKOOWNC23## 

■/■..-.■-■ $FT »flRFAKnOWNr:n** 



ZONE sBREAK0UWN[5]#* 
TRACK*Bf EAKD0WN[6]#* 
HFAD »RRrAKnOWNfft1#^ 



PIN »BREAKD0WNC*3«i 

BOOLEAN aodresserr*dupadr; 

LABEL AGA I NsLINE1.PEEP# SETUP* EXIT; 



FORMAT 

TITLEC'PISK 



ERRCHS BY DISK ADDKESS FUR EU 






DISKAOORESSERRORCDISK ADDRESS 



HEAD INGfX4# "BEG TNNlNG«,/# 



ERRORS"*/* 



00850520 
OOflbOS^O 

.nnd'ius^o 



00350580 
OO8&O6OO 



00850640 
00850660 

ontfsoftan 



00850700 
00850720 
00950740 



00850760 
00850780 
OOti!lOa0C 



00850820 
00850840 



00850880 
OO950VO0 
QQe; p 9 2C 



00850940 
00850960 
QQ85Q0ft0 



00851000 
00851020 
00851040 



00851060 
00851080 
0QH 5 U0 



00651120 
00651140 
0Q» 5 U60 



00851180 
00851200 
QQ851?gQ 



00851240 
00851260 
Q08^2Q0Q 



00853000 
00854000 
0Q655Q0Q 



00855100 
00855150 
Q0 855 2QO 



00855300 
00055400 
0Q8555QQ 



00855600 
00855700 
00855800 



00855900 
00856000 
008561 00 



00857000 
00858000 
00859000 



00859100 
00859200 
00860000 






4<l| 



4(1 

-19 
■50 

&3 



>r 



10 

11 

12 



13 
14 
15 



16 
17 



19 

20 
21 



23 



24 
25 
26 
27 



28 
29 



30 
31 
32 



34 
35 



38 



«0 
41 
42 
43" 



I M 
45 
46 

1 47 
«8 
<9 

1 50 
51 
52 

I 53 
>4 



55 
56 



Xa#"ADCHEi'S 5EGS MAInT 
"TRACK HLAD PIN NETRY 



REPEAT", x9*"L)ISK .CONE "* 
I/O UNIT EHHiiHS>",/» 



• a _ a •• •• n 



00661000 
00862000 
nQdQjQOO 



«-.,_- .... ,«- -,«,. - — - — ••*////)#00864000 

0ETAIL(X4#Al#A6#X«.l2*X6*A2>X4*A6*Xn#Al»Xb#Al^X5# 0086500 
AP.xa.A2»v3.A?,x5,i2»Ai«K3,Ai«x3j»A3." f»jAi«")'M. nnH66nnn 



SUT0TC/#X14, "TOTAL EHRORS = "*I6»//), 
SUF("SU •Ml#//); 



|.ASTEU«*64i 
AGAiNt 

— REflDfSOBTED*iniA[*ni 



IF AC73XMARKER THEN IF ADDRE5SE«rt iHEN GO LINEl ELSE 

IF BL(A[7].t7in) THEN 

RFGIN IF SUFHR^Q THEi N WRlT£ ;c L PA/OUTQ T >S ue k^^ ); 



write (lp a [page j); 
p«intmfid; 

W«ITECLPA*OISKADDRES;iEHRniU, 



WRlTeCLPA*hfc-AUING); 
ZERO(lO^BREAKDOWN); 
AD DRE SS ERR t r TROi* 



SutRRJ=o; 



-^MQ- 



ouPADRj* false; 

6@ LINEi; 
ELSE 



BEGIN 



BREAK00WNADCREbSCAC2]*bREAKUawN); 

IF LASTADHaA[7J ,Lri;?^J TH L fN n i iPADR ; s TRufc 



ELSE 



BEGIN 



DUPAOR»sFALSe> 

LASTfloR>gAr7].rfl>a5i# 



end; 

END ELSE 

IF ADI^RFSSERR 



THEN 



BEGIN W8ITE(LPA*SUTQT^iueRR); 

GD EXIT; 
FNO EI,SE FUt«<S^f 



THEN 



IF £U=LASTEU 
BEGIN 
IF Sil=rL AST.su T 



bt^L 



BEGIN 
ilNEi: LASTKEYI3AC7]; 
. — t A.STFRROR:»AE4l.C g 'alH3i 



I05=AC4],C24:i]; 

TYPEJsA[0],t3:(SJ; 

MAINTtaAr2].r42i23i 



PEEPJ REAO<SORTEDCNO]*10^Lt*3); 

IF LASTMEY»LC73 THEN 
— IF LASTFRRnR&l r41«rg5i81 THEN 



IF I0=LC4],[24:l] THEN 
IF TYPEsLC0].[3S6] THEN 
IF HATNT° L E2].C4 2? 23 THKH 



BEGIN 

REPEATS I • REPEATS*!; 
SUERRi«>SUERR-H; 



READCSORTED); 

GO peep; 

e.nq; 



IF 9UPADR THEN 
BEGIN 

Ar?3ts" 



JLL 



00367000 
00^68000 
Qflfl6fllOn 



00869000 
00870000 

noa7tnno 



00872000 
00872100 
0Q872 20Q 



00872300 
00872310 
QO R 7 240 



008/2500 

00872600 

- 00 8 7 2 7 



00872750 
00872800 
08 730 Q Q 



00873010 

00873020 

■ 008 7.^0 30 



00873040 

00873050 
00873060 



00a/'3070 
00873080 
00873100 



00873200 
00873300 
1673< 



JLQJ 



unn 



00874000 
00875000 
00876000 



00877000 
00877100 

IS 77; 



-QiU 



'200 



00877300 
00877400 
00677500 



00877600 
00877700 
0877^00 



00877900 
00878000 
Q Q878 1QQ 



00878200 
00878300 
0Q67640 O 



00878500 
00878600 
0Q8787QQ 



00878710 
00878720 
00 976 730 



-11 

|4«l 
I4U| 



5i 

'.4 



...J 



>r 



13 



16 



18 



20 
21 



25 



28 

: 29 



31 

I « 
33 

34 

I ^ 
36 

rr' 



1 38 



40 
41 
42 



45 
«6 



49 
\ 50 



52 



55 

I 56 



ZEROClO^nRLAKOOWN); 
END ELSE 
IF TYP E g? ! THhiM M?] ,l ti2 



-2J- 



write:cuc*3»detail 

'AC23*[6(6]*AC23 
— tA[31.C2y»ft1 



00078740 
00070750 
00870800 



i.IF TyPE*21 THEN If MAlNTsJ IHtN "Ml" 
IF MAINT=3 THEN "M2" ELSE "GL" ELSE ' 
»l)ECl(REPEATJ + REAL{REPl:.flTS^,Gja 



00878900 
00879000 

nna79ioo 



ELSE 



^OECH SET ).D£CLC ZONE) 

»IF ADORESSERR QiS OUPADR THEN 

> O ECL C HE A O ) » OECU f P 1 N ) ^- 



00079200 
00879300 
000 79400 



ELSE DECMCTRACK) 



^n=A[7] .C39»6] 
»IF I5CIF TYPfc;=21 
>DECLt A [7J . ca st 3 , 1 1 



00879500 
008/9510 
00H79520 



fHEN 4 LLSE 10) THEN "*" ELSE 



*NEUMI*TINU£A|:7J,njf33 
^IF I0»1 THEN 41 ELSE 54 



00079600 
00079650 
000/9700 



00879600 
00879900 
00 8 80000 



IF (Kj«(ANALYZEDESC(5fNLUM*AL4]#gUNKBUF[-ER)-l)x5) GEtt THEN 00880100 

BEGIN FOR J««0 STEP b UNTIL K DO 00880200 

BE filN VCV I riCa. J I JNKHUFFK , H [j.1 » L U2 3 )i nnflrtOnQQ 



ENPi end; 



WRITECLPA* 15^L t*1)l 
BLANK(L)I 



SUERRtsSUERR+i; 
REPEATSt=0i 
EN D E LSE 



BEGIN 

WRITE(LPA#SUTOT'SU£RR); 
SETUPt WRITE(LP A »SUF»SU); 



SUERRrsOi 

LASTSU8» su; 

I.ASTFUt? EU; 



GO LINE i; 
END 
FND ELSE 



BEGIN 

IF LASTeU^ 64 
IF Fll»ft-i THFN 



WRITECLPACPAGE] ); 
PRINTMFID ; 
WRITE(LPA>TITLE>FU1J 



THEN WHlTECLPA*i»UTGT*3UeRR); 

G t: £ X I r » . 



WRITECLPA^HEADING); 

GO setup; 

E NO; 



writeclpa); 
60 again; 



REWINDCSORTED); 
END REPQRTADDRESS; 



PROCEDURE initialize; 

BEfilN LABEL LOOP^EOFC; 
F ORMAT . 



FST0P("ST0P«-"3^ 
FCOMMONCWhlCH COMMON.. ,<-"3> 
FCOMMONVALUFSC "COMMON VALUES 



available AHiT}"/ 



"01 GENEIJATE ANY AND ALL REPORTS"/ 
"11 CHRONOLUGICAL LISTING ONLY"/ 
"21 PERIPHEHIAL UNIT.CRROR SUMMARY"/ 



00880400 
00880500 
00B806QQ 



00000800 
00000900 

oof^oiooo 



00882000 
00882100 
882200 



00882300 
00002400 

floaa2'^on 



00882600 

00882700 
00983000 



00804000 
00885000 
00006000 



00887000 
00887010 
00888000 



00089000 
00890000 
00891000 



00892000 
00893000 
00894Q0Q 



00895000 
00696000 
QQ 9V6 100 



00896200 
00896300 
Q089640Q 



00896410 
00896420 
00S96430 



00896440 
00896450 
00896460 



^ 



10 

11 

12 



13 
14 



16 
17 
IS 
19 
20 



22 
23 
24 



25 
26 
27 



28 
29 
ID 



31 
32 
33 
34 
35 
36 



37 
38 
39 



40 
41 
42 



46 



«9 
SO 
51 
52 
53 
54 
55 
56 
57 



"Hi REAL TIME TAPE wRITli. FAILURES"/ 

"81 QNH.^E CUNFIOENCE TE^T riESULTS*-") ; 



PROCEDURE MAKEUPUTLOGMAK 
BEGIN LABEL NEXT; 
INTEGER SERtCOUNT; 



oobv6a70 

003^6480 
0Q 8 V 6 500 



00897000 
00697040 
00897060 



FORMAT 

FSECCAl^Ab^'V^Al/Ad*" 
FMAIN("MAlNT<^"*Aa*"«-")* 



SECURED FILE -"" MAiNT LOGGER*")* 



r PI m i>n " w a X ^ I /^ • * ft t* * " «■ • J , t — — _ — ___ ^_ — _ 

FFREEC** PLEASE FREE «/MMLOG AND RESTART •*«<")* 
FNON("** NO s/MNTLOG FILERS FOUNO* •'* 
"ONLY MAINT/LHG mlLI BE PRnCESSEO **«•") » 



rDK(Al#A6*"/"/Al»A6»" FiLt QK --- MAI\T LOGGER*-") / 
STREAK PRHCEDURE M A KF M F I D( S £Rf MF I D ) ^ V ALUE SER i 



BEGIN 



DUsHFio; DiJ«Di+5; 
sn»i„nc sfr; Q.'StgH ofc^ 



END MAKEMFID i 
IF COMHONsQ THEN 



BEGIN 

MFID»»04TlME(5)c6J12»2't]; 
END E LSE 



MFIDI»0&DECM(CUMMO.NI)[6:2/i;2'^3/ 

FID 1= LOGFID ; 

FOR SFR t= 1 STEP 1 -Ui NT II, 999 t JU 



BEGIN 



MAKEMFID(SER#MF1D) ; 
F I LL L O G WITH' MFID*FID ; 



SEARCH(LDG* A[*] ) ; 

IF ACQ] * "x Then go 

IF AIOl ^ C THEN 



TO NEXT ; 



BEGIN 



WRITE(SPQ*FSEC#LMFID); 
iMRTTFfSPQiFFBFF) ; GO TO 



FI M S i 



end; 
writeca[*j,f0^*lmf1d); 

WBTTFfSPn,in,Af *] )i 



^EXTt 



WRITE(FINPUT#10»At*])i 
COUNT »a COUNT + I ; 



END/ 

IF COUNT s 

RFTiIN , 



THEN 



writ£(sp0*fn0n); 
end; 

IF COMHON»e- THEN 



WRITE(FINPUT*FMAIN'FID) 
COMMON Is 22 ; 
USFFINPUT >a TRUF t 



END makeinputlogmak; 
TfMFQl«TTMFfQ)? 



MARKERtaREALCNDT FALSE); 

log.myuse:«input; 

IF TIMEf'n*"SITE " A ISP 



<COMBONi»e on CCMM0N>100) THEN 

makeinputlogmak; 



00897130 
00897140 

O H971 6 O 



00897200 

00897240 
fl97i 



-na 



2(S0 



00897280 
00897300 
00897320 



00897340 
00897360 
00897380- 



00897400 
00897420 
00897440 



00897460 

00897480 

-00897500 



00897510 
00897520 
008 975 40. 



00897560 
00897580 
00897600 



00897620 
00897640 
00B9766Q 



00897680 
00897700 
Qna9779n 



00897740 
00897750 
0089776 



00897780 
00897800 
00897820 



00897840 
00897860 
Q0897flflO 



00897900 
00897920 
00897940 



00897960 
00898000 
0089802 



00898060 
00899000 
nn899i nfi 



00899200 
00899400 
00699500 



00899600 
00899700 
0OH9V800 



1+1 



4') 



S2 
'..1 

56 



>r 






12 
13 

I 14 
15 
16 

I 17 
IB 
19 
20 



21 
22 



I 23 
24 
25 

I 26 
27 



28 

I M 
90 
31 

I H 

33 



34 
I 35 

36 

37" 
L 38 



42 
43' 



45 

46 

I 47 

•8 



«9 

I 50 



DO 



62 
I 53 

54 

55 

I 56 



IF CUMML1N = THEN 

RFGIN FILL SPO WITH *****#*» *^ 1 vi; 
^ wi^TTFf spni STnPi.rrnMMnNW 



REAOCSPO/Z/^COMMON); 
IF COMMON s THtN 
BEGIN 



WRlTtCSPUuFCQMMUNVALUtS) 
WRITE(SPU[ST0P]*FCGMMUN) 



END 

end; 

TF CflMMflN 



; 



> 9 THEN 



BEGIN C13M: = CUMMUN DJ.V lo; 

CQMMONJeCOVMON MOD lOi 



SUMTOG»« BL(CUM).[46U3; 
TISTOQls 8LCC0M).C45»U; 



END ELSE 

listqgsssumtog:=testogj=!Onltug! 

IF CnMMONaS THEN 



^thue; 



BEGIN 



IF USEFINPUT THEN GO EOFC/ 
LOOP I READfWHATi nfl. 1 0. A f * ] U FOFC J ; 



EQFCt 



WRITECFINPUT,10#AL*]); 

GO loop; 

C L OSECWH A TL C GJi 



END? 



WRITECFINPUT*FST0P); 
REWIND(FINPUT>; 



FILL TINUC*] WITH 

"MTA"*"MTB'S"MTC"*"MTO"*"MTE"."MTF'%"MTM'S"MTJ"» 
-_ "MTK'*.« MTL"."MTM'*,"MTN"»"MrP'*."MTK"."MTb","MTT"« 



•♦ORA»',"DR8'«ji"0KA'V"DKB"*"LPA",«LPa'»*"CPA''#«CRA''ii 

♦•GRB''#"SPO'V"PPA''*"PRA"»'»PRB"*"PPB"*»'nCA"»"UNK"; 
mCKf TTNlJ[*n? 



FILL UNKI*] WITH 

"UNK'V^MCR 'S^LP "* 
"SPO"»'«r.P ",'M)NK"» 



'Mr 
rpp 



'OH 



i"DK 



LOCKCUNKC*]); 
FILL UNITC*J WITH 
^ WRTTF " RE ftp 



'."PH '%»nrA"; 



0, 



31* 

C, 
JJU. 



% 

-1. 





1 



MTA 



1> 

16. 

Pi 



18, 
3* 



4 # 



I* 

16> 

2* 

18# 



% 
% 



3 

4 

_5_ 



MTB 
ORA 
MTC 



4, 
23» 

— 1*- 



% 6 
X 7 

X 9 

X 10 
X 11 



DKA 
MTD 
UKB 



MTE 

CPA* 

MTF 



CRA 



19, 
6f 



19, 

6* 

2 4> 



12 

13 
JJL 



D><B 
MTH 



CRB 



7, 

90* 
fit 



7/ 
30* 



15 
16 



MTJ 
OCA 
MTK 



00899900 
00900000 

nn9uinnn 



00902000 
00902100 

00902110 



00^02120 
009U2130 

finvopun 



00902150 
00903000 
009tU00Q 



00905000 
00906000 
OQ9O61Q0 



00906200 
009U6300 
n09Q6i>00 



00907000 
00908000 
00909000 



00909100 

00909150 
Q0909gOQ 



00909300 
00909400 
00909500- 



00909600 
00909700 



00909900 
00910000 
QQ9il0Q0 



00912000 
00913000 

nn9i:Moo 



00913200 
00913300 
QQ91340Q, 



00913500 
00914000 
00915000 



00916000 
00917000 
00916000 



00919000 
00920000 
Q09ginftn 



00922000 
00923000 
009^4000 



00925000 
00926000 
00927000 



00928000 
00929000 
00930000 



00931000 
00932000 
00913000 



>r 



9 
10 
11 
12 
13 
14 
IS 



16 
17 



19 
20 



21 
22 



23 

24 



25 
26 



27 
28 



29 
30 



31 
32 
33 



34 

35 

36 

37 ~ 

38 

39 



41 
42 
43" 



45 



46 
47 
48 
49 
50 



52 

53 



35 

56 



26* 

9$ 

2^» 



27, 

26* 



* 18 PPa* PHA 



19 
.20- 



MTL 
PPBf 



PrtB 



10, 
11* 



10, 
31, 
11* 



21 

22 

.22- 



MIM 

LPA* 

MTN 



31, 
12, 



13* 
31* 
U* 



31, 

12, 

-34^ 



13, 
31, 

la* 



24 
25 



27 
28 



MTP 



mtr 



MTS 



25* 25, X 30 SPO 

15* ISJ % 31 MTT 

i,ncKCUNiTr*i)/ 



FILL MESSt*3 WITH 

'♦0*NONAME" 
*^n»NnNAME" 



"RtCOVERE" 
"UNRECOVE" 
"OPPOSITE" 



"BLANK TA" 
"Eer ON W« 
"0 FLAG ^ 



"0 

"0 

-ilO- 



INVALD" 
INTEGR" 

EXP O N " 



"0 DIV BY" 
"0 END OF" 



"0*HALTEO" 
"n*ENDI OG" 



"D 

"RED 
" M O 



W^ 



"PE ABORT" 

"RITE 

"0 BIT !i 



"0 
"0 



INDEX" 
OVFLW" 
OVFLW" 



"0 

"0 



ZERO 

FILE 



JL 




-2- 






6 

-3- 



10 
12 
4^ 



16 

la 






22 

24 



FILL UTITLESC*] WITH 

0CTO017104421276063' 
nCT222lQ4243l6?4260» 



"APE 
ft 



0CT202l04245l64446a* " 
0CT2425074751314563* "ES 
nCT26?<St??3?l'<1?4ftn* "PtlNiCH 



% MAG 

-% — 1 — 1,1 isk 



TAPE 



GCT273C132321512460* 
0CT31310362474O6060* 
nCT32'^5l2ft72l472t^'^I* 



'* % 2 DHUM 

'* X 3 PRINTER 

L« % h r.ARn PUNCH 



"RtAQbri 
" 7APK 



% 5 CAkO READER 

■X, 6 SPO 

I 7 PAPIJ-.R TAPE 



0eT3636ll242i632l6«), 
L0CK(UTITLESC*3); 
FILL DAYSC*3 WITH 



'COMM 



'; % 8 DATA COMM 



" SUN", 

" THURS"* 

LOCKC OA YSC*]); 



HON", 
FRI", 



TUEb", "WEDKES"* 



flag»sflagbit; 

INOEX I alNV A LOINOEXJ 



INTOVRJslNTEGROVFLW; 

EXPOVRlsEXPONOVFLw; 

DIV7FRnt»DlVRY7ERC? 



END 

X 

PRQCEDilRF 



INITIALIZE; 
PASSi; 



BEGIN 



REAL MAXTYPE*LOGVLRSIaN; 
FORMAT — 



WFILEC"WHICH LOG FILE. ..«•")' 

NFILE("#NO FIL UN DISK "*A1#Aa, •♦/»•, Al * A6'"*" ) * 

F.TI,ME(Xfl*"TIMF IS '«*A'3 )* . 



OC9J4000 
00935000 

nov.^fioon 



00V37OO0 

00V38000 

00939000 



00940000 
00941000 
009 42000 



00943000 
00944000 
0094*^000 



00946000 
00947000 
Q0V47100 



00946000 
00949000 

nov'^nooo 



00951000 
00952000 
00953000 



00954000 

00955000 

- 009 5 5100 



009b5200 
00955300 
0Q955400 



00«55500 
O0V55600 
00955900 



00956000 
00957000 
00958000 



00959000 
00960000 
00961000 



00962000 
00963000 
00964000 



00965000 
00965100 
00966000 



00967000 

00966000 
0096810 



009 70000 

00973100 

- 0097 3 200 



00973300 
00973400 
00973500 



009 7 3600 
CO 971700 
0&9 74 000 



00974100 
00974200 
00 9 7 4 3 



00974400 
00974S00 
t)fl974600 



■lljl 

a 

s.r 

'I -I 

fib! 



^ 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



IS 
16 
17 
18 



19 
20 



21 
22 



23 
24 
25 
26 



27 
28 



29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 



39 

40 

41 
«2 



45 
46 

} " 
«8 

<9 

I 50 

51 

52 

I 53 



54 

55 



I 56 
57 



WM(]«{8*"MCPBASe is 'M8)> 

NEU(X8f"Na. OF CUS ON LINE AHe:'%I3), 

MQnFl.CXaf"£U'M,^fL'--'ni.SK MQQ£.i.„ "fA2*" C'fli*" Mh)")? 



009M700 
OOy/4800 



t ABEL 

PFRTP.nHjnR.iTT i £M . (•runs. MAI 0D.wMCP.TMpAT#xr)TSK«FFrnM. 



00975000 
00976000 
00 9770 00 



TAPETST» 

ONLTEST* 
FTNQTT>REFnfCHOaSRFF>FXIT; 



009^7100 
00977200 
009^8000 



^WTTr'M^MTypPIs 

PERIP.PrRlP.PFBl P. PFRTP.PFRIP.PFRTP.PrRIP.Hrrn. 



0097Q900 
009 79000 
QQ9BQQQQ 



perip#pehip*perip* 

OBJOB^FILEN#ECJ0B,HALnQ»rfMCP/TM0Ar,xDlS^*FECOM» 

TA PET ST * _____„_„____ 



QNITEST* 



00981000 
00982000 

onvHZino, 



00982200 
00982900 
0Q96295Q 



STREAM PROCEDURE MOvEMESSC PTN/ U ) / 
BEGIN LABEL Ll.; 
. S l isFTR; o ir a i ; 



00983000 
00984000 

onvH'ioon 



2(52CIF Sc'AR^^OW THEN OSJsChR ELSE JUMP OUT 2 TO LD); 
LL» OSJ^LIT","; 
END MOVEMES S ; -^ ^ _- _ : 



00986000 
00987000 
09 88000 



STREAM PROCEDURE F inQOPT IONS (B*L ) > 
BEGIN , 



LABEL L1,L2#L3,xIT; 

su«b; di»sl/ oi«»oi+8J 

nS»gl6 LIT^'MCP OPTinNS ^Mi*^i 



00989000 

009V0000 
-OQ991Q0Q 



63CIF sc="#" Then jump out to li eLSt; 5i!*si + n; 
GO xit; 

XIA ^ ^ 



00992000 

00993000 

oo9gaooo 



00995000 
00996000 
00997000 



63(IF SC«" " THEN JUMP OUT TO L2 ELSE i>l « «SI-1 ) ? 
GO XIT* 

L2» : . 



2(48(IF SCaARKQw THEN JUM*" OUT 2 TO L3 ELSE DS;sChR)); 
L38 DSJsLIT".-; 

XITI . .^_^ 



00998000 
00999000 
OlQOOnOfl 



END FiNOOPTIDNSi 
frflQLEAN STRFAW PROrrnURF XQRAOlSK C H* XriFILE> JUkK U VALUE XnFTLr i 



OlOOlOOO 
010U2000 

otUQ3noo 



01004000 
01004050 
Q1 004 1QQ 



BEGIN 



LOCAL bad; label li*l2*lj*xit; 

SI l^Bi IF SC^" " THFN GQ X]T> 



SlJJSSI + i; Dn»LOc BAOi DS»«6LIT«8ADlSK''i DI»«DI-6; 
IF 6 SCjIDC then go XITI 

-14J ir se#"/'* THFN bfrtn tuaat-n; aa lu rNn; 



01004150 
01004200 

010Q4250 



suaSi + i; ci»=junk; oSj=l1T"C"; gs:s7Chr; 
sii=si-7; ds5»7Uct; 

-t2J IF SC^"*'*' THFN BEGIN i^l'-'^l + iy liQ LP. f FNTir 



01004300 
01004350 
0^004400 



01004450 
01004500 
0l 0v)45 5 



su«si + i; DSi»8 OCT; 
DSjaidtifo •*; 

XDFlLEf PI tsai*?til SKIP DBJ DJt »S£ri Dl tJiPl* fll 



01004600 
01004650 
01 004 70 



L3J IF SC'ARRQK THEN BEGIN SiiaSI + lJ GO L3/ END; 

sijssi-15; dsjx7chr; 
sitasi»i; nn = Di-n; d&; = 7ChR); 



TALLY»*i; 
XIT» XDBAOlSKtsTALLV; 
ENO XPgADlSK; 



01004750 
01004800 
01004850 



01004900 
01004950 



rf 

2 
3 
4 
5 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
48 
49 
50 
51 



52 
53 
54 

55 
56 
57 



STREAM PROCEDURE SETtUSPEeUC tui, BiiEuSPEED ) J^ VauUE EUS; 
HFfilN ^ 



sii«b; si:55i+2; 0i:sEusPt.EDi SKIP ob; 

EUSCIF SB THEN 

RESIN n st»SF Ti n si« R E;{>L T f £nd else 



BEGIN CSJsRESET; DS:=iET; END; SKIP 56); 

END seteuspeed; 



STREAM PROCEDURE SpoUTa»MF lU/F lO^OATE^HECS ) ; 
VALUE MFlD#FID*OATEvRECS; 
BEGIN 



dij=l; susloc mfid; si: = ai + i; ds:*lit" "; 

DSJs? CHR; SI«=SI+i; Da:=ulT"/"; US»=/ CnRj 

ns>5l2 LIT" ACCESSED^ "? os»»e chr;. 



DSl»e LIT" SEGS5 "; SIi«i>I + «i DS»»4 CHR; 0SJ»LIT ARROW; 

END spout; 



STREAM PROCEDURE SCAlM(A#ID); 
BEGIN LABEL L 1* L2*L3*L'^# X ITJ 

shsa; nnsiDi DS;=Tfli,,ir"OjTop 



,; nn»nT-?; 



Lt» 



IF SC 
If SC 
7flF 



SB" ♦^ THEN BEGIN SlJsSl + i; GO LU END; 

•ARROW THEN GO XIT; 

SCaALPHA THEN DStaCHH ELSF DSiaLIT" »♦ ) ; 



L2: 
L3t 



IF SC 
IF SC 
I F S C 



-ALPHA THEN BEGIN Si; = SI + l; UO L'>ii tND; 
a" " THEN BEGIN Sli^^l+ii GU L3; LNU; 
a"/" THEN 



4JX 



BEGIN 
OSt 



*LIT"0"; 
■ SI^U 



IF 
7(1 
FNO? 



SCa" •• THEN GO L4; 

F Se=ALPHA THEN US:=CHr 



ELSE DS:=LIT" "); 



XITI 

END scan; 



INPASSn=TRUE; 

dhumtogi»sumfiletug:=crosstdg;*haltog;»xutu6: 

NllMFNTRTFSI=iFTYPF>«n; _____________^_^_ 



^false; 



TAPERRORSjssDISKERRORSjsTAPETEaTsisO; 
FlNOITt 

TI MEil # TIMF f 1 ); „ 



PROCTIME«= TIMEC2); 
lOTlMEls TIMEOJ; 
IF COMMON^a THEN 



BEGIN 



WRITECSP0CST0P3»WFILE); 
IEAD(SP0*9,A[*3); 



END ELSE 
BEGIN 

readcfinput^io^ac*] ); 



end; 

AC9]>« marker; 

S CANU^HFIO?; 



fioi« logfid; 



IF MFID="STQP " THEN GU TO £0p; 

maintlogj«cmfid="maint "); 



CLOSECLOGj; X JUST TO BE 
fill LOG WITH MFID^FlU; 
if not USEFlNPliT THEN 



SURE 



U05050 
006000 

uo7noo 



008000 

009000 
009100 



010000 
OllOOC 
Oil 1 00 



012000 
013000 
OUO Q O 



015000 
016000 
1 70 00 



018000 
019000 

uanooo 



OkilOOO 
0«i2000 
0<i2lQ0 



022200 
022300 
022400 



022500 
022600 
0^2700 



022800 
022900 
023000 



023100 
023200 
023300 



023400 
030000 
031000 



031100 
031200 
OJ13Q0 



O3UO0 
032000 
033Q00 



033100 
033200 
03^0 00 



035000 
036000 
U3700Q 



U38000 
038100 
038200 



036300 
039000 
040000 



042000 
042100 
042200 



04 3000 
044000 
Oft 5 OOP 



h 



10 

11 

12 
13 



16 
17 



19 
20 



22 



24 



26 
27 



29 



31 

I 32 
33 
34 

I 36 
36 
37" 



39 



I 41 
42 



t8 



49 
I 50 



52 

I S3 

54 



BEGIN 

SEARCH(LOG' A[*J ),* 
IF ft[(n-("n THEN 



BEGIN 



ENDf 



WRIT£CSPO,NFltE*UMFlO); 

GO finoit; 



END USEFINPUTi 



RFADfinGf'i>AC*3 3; 



SEGSis AC0l.t24Jl5U2*REALCMAlNTlDG)i 

XCROSSTOGJ* NOT (A[03 < 0); 

ir C0W«512 TH E N _ 



BEGIN SPCUT(L'>'FIO»FIO»DAY(-AL4 3 )»CECLCSEGi))); 

WRlTECSPC#10#Lt*])^ GQ FlNDITi 
end; . : ^ . 



LASTENTRY»*AC03,t9;i=>3; 
STOPTIMEJ«A[U.t3»243; % JN 

TF STQPTTME«Q TUFN <;TnPT T MF iaT I MF 1 ; 



BINARY (1/60THS) 



L0GVEHSlQNisA[3]; 

M AXTYPE»=LOG VERSION. [30! 6 j; 

l.naVFRS ION tain GVERSlQl^.U2»fti^ 



STOPDATE«= A£43; 
SPACE(L0G#5); 
RCNTl:^ 5i 



X IN 8Gi (YYOOD) 



READ(LOGtN03^5#AC*3 )/ 

LASTENTRYl=LASTENTRY-AC0 3.C25:U3 + i; 
STAHTDATFt'CnATEi- QECM f Af 1 3 . I. JO » 183 ) / 



REEOl 



STARTIMEIa Atn.C3J243; 
RFAD(L0R.5*Af*1>rENnQFTI EU 



LOGENTRYJx RCNT;= RCNT+j; 

IF (TYPEt=A[03.[3»63) * THEN GO REEOi 

IF ACQ] ' MARKFP THEN GQ E X I T> 



NUMENTRIES»* NVMENTRIES+i; 



IF I>MAXEnTRY 

M0VE(5*A*B); 
FOR J>«S STFP 



THEN GO iNVALDllNiOEX; 
5 UNTIL I i)Q 



BEGIN REAO(tOG»5»At*3)CENOaFIl.E3i 

RCNTJa RCNT+i; 
MnVEC5iAtRr.Jl)? __^ 



end; 

IF type>maxtype then 

GQ S>lTYPE rTYPE 3 i 



GO reed; 



PER IP t 



IF 
ML 



LISTOG OR 
CRQSSREFi 



SUMTOG THEN PERIPHANOiCR; 



OBJOBJ 



BC23,[3»15] «= LCGLNTRY; 

MOvE(3,B[2 3,JARCMI)(;=B[OJ.[20ta3,OJ); 



riVEN * 



IF MIX>MIXMAX 

GO crossref; 



Then mixmaxi-mix/ 



B[23,C3;i53i« logentry; 

IF {FNUM:sB[03 ,[9«93)>MAXFNUM FhEN FNUM J sM AXFNUM; 
MOVE(3#BC2 3#JARr(Mlx;sBLQ3,C20«5 3)*FNUMx3 3 J; 



IQJQri 



LQ6ENTRY, [31153:* 

GO crossref; 



JAR[Mix#03.t3:i5>3; 



01C45100 
010^*6000 

ni047ono 



01040000 
01049000 

oio?inooo 



OlOblOOO 
0l0b2000 

QiOiaynoo 



01058000 
01059000 

O106O000 



01061000 
01062000 
10 63 00 



01063100 
01063200 
0106 3.^00 



01063400 
01063500 
010^,^600 



01064000 
01066000 
01067000 



01066000 
01068100 
01Q69QQO 



01070000 
01071000 
Qt Q72 Q0Q 



01073000 

01074000 
010/5000 



01076000 
01076100 
Q1076PQO 



01076300 
01079000 
Q10 60 Q QQ 



01081000 
01082000 
Ql0fl30QQ 



01084000 
010^4100 
01085QQQ 



O1OJ6OOO 
01087000 
01088000 



01089000 
01090000 
0109100 



01 092000 
01093000 

oioi?^ooo 



01095000 
01095100 
01096000 



01097000 
01098000 
010 9 9 QQO 



M 



ii3 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
18 



19 
20 



21 



22 
23 



24 
25 
26 
27 
28 
29 



31 
32 
33 



34 

36 
36 



37 
38 



39 
40 

I 41 
42 
43 

I 44 
45 
16 

, 47 
48 
49 
SO 



SI 
52 
53 
54 



55 
56 



JS= JAR[MIXJ=B[C].[?0:5]*0J.i:3:ib]# 

IF CRCJSSTOG THEN 

F O R i ;^ 1 STEP 1 ilNT Il. INXt ai.l DO 



IF TABUEtaifUsj THEN TABcE C 3 IM J . C 3U5 3 

L0GENTRY,[3«15 3 s» Ji 

7ERnC3nOi jARfMlXtO] )1 



»« logentry; 



GO crqssref; 



HAUODS 



IF LISTOG THEN 



BEGIN 

BLANK(L); 

WRlTfPAGFI 



M0VEMESS(e[2]*L); 

writeuouble; 

WRITECLC *]^FT I MEyAT Ii>iL (B Ll J 



i ^ ^ ?A}))i >^Rn£-P rj|)6LE; 



WRITECLC*3#F0ATE 

#CDAT£:»DECM(B[U.t30«183) 
■: >DAV(rnATF) 



HALTOGIs 



'ACTDATt. 

); writeuouhle; 

true ; 



end; 

GO crqssref; 



WMCPt 



N:=BC3],t<l3J5 3; 

IF N>20 Then ns=2o; 
FuSPFFn;»N; 



* MAXIMUM Of 20 £tS 



SCTEUSPEE0CN#BC3]»EUSPEEU); 
FOR I»«l STEP 1 UNTIL MIXMAX 

yFRncanntjARr T to n ? 



ou 



MIXMAX«= O; 

IF LISTOG THEN 

BEGIN 



blankcd; 

IF NOT HAlTOG 
BEGIN 



THEN 



writepage; 

mqvemess(bc4],lj; 
writedouble; 



WRlTE(lC*]#FTlMt.*ATlMECBtn.l.3»2«])); 
WRITEtLl*3*FDATE 
^ ^CDATElgQECMCBCll.CaOMai) 



writedoubue; 



*UAY(CDATE) 
*ACTDATt 
)f hRTTFriOUBLF; 



END ELSE 
BEGIN F I NDOPTI CNS C B C 4 J » L ) ; 
HRITFDWyflLEi - ^ 



HALTOG:^ false; 

end; 

WRIT E C L[ * ] fWM* BL2J ) ; WR I T E nOUHL E ; 



WRITE(LC*]»NEU»N3; WRITEDOMBLEi 
FOR n»l STEP 1 UNTIL N 00 
BEGIN . ^ : . , 



WRITE(LC*]'MODEL 



FNO; 



MF f J:8GF^^-USP^-Fn(1^1>l■^USP^Fn))s2 ihfn " i r" flsf "l "" Q 
#Jx20 

); writedouble; o 



ICOOOO 
100100 
10 1 000 



102000 
103000 

loaooo 



1C5000 
1U6000 
1 07 00 



108000 
109000 
110000 



lllOOO 
112000 
113000 



lUOOO 
U5000 
ii6nnQ 



117000 
U600C 

U900Q 



120000 
121000 

iiaoxxo- 



lk:2l00 
122200 
122300 



123000 
124000 
125000 



126000 
127000 
128000 



129000 
130000 
131000 



132000 
133000 
134000 



135000 
136000 
137000 



138000 
139000 
HO OOO 



141000 
142000 
143000 



U4000 
145000 

uaono 



147000 
148O0O 
149000 



150000 

151000 
152QQQ 



15 30 00 
1540<30 
iSSL£[Oil. 



1471 
■IH 

= ,1 

■..31 
14 
•jS 
Ibti 



>r 



13 



16 
17 
IS 



19 
20 
21 



23 



2S 

I 26 

27 

28 



90 



33 



34 

3S 



36 

37* 



43 



46 
I " 

49 



S2 



J4 



I 56 



blankcd; wRiTE5PACt;S(4); 

end; 

fig CHUSSRF.:F,? 



THOATI 



OUbOOOO 
Ollb7000 



ir 8C33/0 THEN 

If (U aQFcMfB c n . no tj f^ J) ) *cturE 



THEN 



BEGIN 



01 159000 
01160000 
01161000 



CDATEJai; 
]f LISTUG 



■XHSM- 



8EGIN 

writepage; 

WRTTF f I r * 1 > PIT MF * AT I Mr ( (U n . t -J ; ;>^ 1 ^ > i w p T TppQIipi F i 



0U62000 
01163000 

C1U4000 



WKITE(LC*]*l-DArF. 
*COATE 
>O A YCCDAT £ ) 



01165000 

01166000 
01167000 



ENO? 



,actoate 

); WRlTEDUUatE' 



01168000 
01169000 
0U?U Q 00 



XDISK; 



end; 

GO crqSsSref; 



01171000 
01172000 
Q U7i QQ0 



IF LISTOQ 
BEGIN 



THEN 



OllMOOO 
011/5000 
01176000 



MOVEMESSCBC33*L[m; 

L[0]J5 " " & ATlME([3ClJ.L3»2'l])Ll;U;ii9Ji 

WRTTESPflCESC3.) j - . „ 



01177000 
01l?8000 
01 i/qnnn 



end; 

if sumtog 

BEGIN 



01160000 
01161000 
011ff?O0C 



Then 



IF X0BADlSK(bC33*BL(BC23 
BEGIN 
MnvEC2*tft,.HIiNKRllFFfcR )> 



L1S1))^JUNKBUFFERC23) THEN 



01183000 
01183050 
01183100 



01183150 
01183200 
nilft^25Q 



end; 
end; 

fin f:Rns<;RpF! 



JUNKBUFFERC7]iajUNKeUFFERC41<ijUNKBUFFERi:3]C8»23J253; 01183300 
WRITECBADISK#10.UUNKBUFFERI*3); 0U83350 

XnTQfi»gTRt)F; : _^- oi iHAann 



FECOMl 



01183/150 
01183500 
0118^000 



IF LIS TOG 



THEN 



blankcd; 

M0VEMtSS{Bt21*LC23); 

LC03»= " " d ATlME(B[lJ.C3S24])Llii9?29j; 



0U85000 
01186000 
01167000 



LtlU* «Q«MENT 
WRITESPACES(3); 



& l9tirft3lS3; 



01188000 
01189000 
01190000 



GO 

TAPETSTl 

IF 



crossref; 

TESTOG THEN 



01191000 
01192000 
01193000 



BEGIN 

MQV£(3»JARCMlx»»Bc0 3,C20»5]*a3*BC2OO3); 
I F C F NtJ M r«R C m . [ ; a 1 ^> M A KF hiUM T U£ M F^^t ' X i 



0119310C 
01193200 
01193 300 



irt AXF N ^tiM; 



MQVE(3*jARCMIX^FNUMx33»BC2033); 

B[2063«s CDATE; 

WRITE(TST>21Q,BL*]); TAPETEbTSts TAPETESTS-n; 



01193400 
01193500 
01,193550 



end; 

CROSSREFt 
IF CROSSTQG 



01193600 
01193700 
01193800 



T HEN 



01193900 
01194000 



1) 



,3 
55 



2 
3 
4 

5 
6 
7 

a 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31" 

32 

33 

34 

3S 

36 

37"' 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«a 

49 
SO 
51 
52 
53 

55 
56 
57 



BEGIN 

IF TYPE < 

RFGIN 



12 THEN 



IF MIX^O THEN LUGENTRY:» LOUEN 
IF FNUM;<0 THEN UOGENTRY|» LUGE 
TA9i. ErLUN*(I NX C W UN J»« IN X LLUN] 



TRY & JARl'MXX^O] 13;3U&]; 
NTHY K JARCMIX*FNUMX3J C18I3> 
+ 1)3 19 LOtiENTRY) 



153^ 



END ELSE 

BEGIN 

TABLErCTYPF;gTYPF-i-l?)>(TNxUYPE3;= I NX [ T YPI: 1 1 1) ] islUGENTRYJ a 



eno;eno; 

GO RECOJ 
nNLTESTi 



IF QNLTQG 
BEGIN 
, IF TYPF 



THEN 



BEGIN 

MOVE (7 
L£l 3f« 



*B»l) 

_LUJ_ 



& nCT\liCQl^lEnd7t27l7Mi 



LC7]8 = 
IF BCO 
BEGIN 



i (LUNJ=UNlTtBt3J«[3;5]x2] )[isa3:5]; 
J.C18:2J=1 THEN XTAPL 



UtOlts LCO] & BtnC2/»2/J2 
LC7]»» LC71 & Bt73tl553Ull 

: I lINf 3i:il2.' 



8 3 & 

61 S Br91C3V» fl 2 t 61t 



L [ 8 3 : ■ 
L[93»= 

FND FLSE 



TPtCNF[0>MlX;'»BCu3,t20;5J3; 
TPECNFClfMIXi; 



BEGIN 

BREAKDOWN 
l C 7 3t^ LI 



AnURE3S(BC23'AJl 

71 A H£ALCAf93<Q)C7U7l.n & 



end; 

»^WTTF(TFMP>inH,.,[*1}; 



AC03L8523S253 & BC33t33J27;6J & B[23C4UU4J;0 



Q 



SUMFlLETflGta TRUE; 
END ELSE 
I F TYP E*1 AN R RLQl .[16i2 3s l T H EN 



BEGIN TPECNF[ 

TPECNFC 

ENHJ ^ 



C»i^IXJ«BC0j.[20«5J JSs 8C5]; 
l»Mix3;= BCG3; 



end; 

GO crossref; 



fXlTl 



END PASSi; 

% 

PROCEDURE PASS2; 



BEGIN LABEL CLEANUP; 

FORMAT 
WRAPUPf/////>"LQG FTLF iS*** XS « A 1 * A6 »"/"* A t > A6^ 



2(//*"L0G 'VA5'Xl5»Ab, 
//»"LOG ENTRIES '%X4 
//»"LUG SFGMENTS'VXtt 



X^'Ad^^DAY' 
/I5»" QF "'Uf 



''»0»X3#A5)* 



///."PROCESSOR TIME 
//♦••I/O TIME 
/y>>*FLAPSFD riME 



"fH." MIN, «#F5,1*" StC.«# 

••M^*" MIN. "^FS.l*" SEC."* 

'^M ^^" MIN. "#F5 . 1»'V >ECt*' )/ _& 



inpassii»false; 
if sumtqg then 

BEGI N 



IF sumfiletog t 

BEGIN 

Af/Hg markfr; 



HEN % THERE ARE 
WRI TE <.TEMP*10« AU . 



EHROK ENTRIES IN SUM FILE 
11J_ . ^ 



lv6000 
1V7000 

ivaono 



lv9000 
200000 
2U1Q00 



202000 
203000 
<!0^000 



205000 
205100 

205200 



205300 
205400 
205500 



205600 
205700 
2Q5B0Q 



205900 
2U6000 
206tOQ 



206200 
206300 
2Q6Zino 



206500 
206600 
2Q6600 



206900 
207000 
20 7100 



207200 
207400 
«i07'>flO 



207600 
207700 
207800 



2U7900 
208000 
20at0Q 



208200 
208300 



208500 
226000 
227000 



228000 
228100 
226200 



228300 
228400 
228500 



226600 
228700 
22 8600 



228900 
229000 
2 29050 



230000 
231000 
231100 



U,| 



My 

141)1 



|S2 
ii3 



hi 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 

► " 
18 

19 

I 20 

21 

22 

) 23 

24 

2S 

I 26 

27 

28 

I » 
M 
31 

33 

34 

, 35 



36 

37' 
t 38 

39 

4C 
>41 

42 

43' 
1*4 

45 

46 
I .7 

«8 

49 
, BO 

51 

52 

) M 

S4 

55 

I 56 

5' 



REWINDCTEMPj; 

j:= 0; 

SnRT(QUTSnHT>TM llNSHR T M1> ri 1 , CMPi liNf 10, 6nnn ) ; 



READ (SUM C NO] ); 
SROWPTOTALS(0*TAPtRROKS); 
Tf TAPrffRnRS<n tm^m 



8EGIM 

REwiNncsuM); RtAcciuMCNOJ); 
J>= u I UNMAx;= IS,; 



SORT(OUTSaRT*INSORT*0#HI#CMP*iO*6000); 

reportprn; 

FNo; ^ '_^_____ 



GROUPTOTALSCUCISKERRURS); 

IF DISKERRQRSXC THEN 

BE GI N 



SPACE{SUM,-DISKERR0RS); READ{ SUMCNQ) ); 
J»*U LUNMAXta 19; 
Sfl RTfniiTSnRT.TMSnRT.Q.HT*f:MF«in.6nnnv; 



REPORTADDRESSi 

end; 

EMD .SIJMFlLFTQij; 



IF XOtOG THEN 
BEGIN 
- ACritaMARKER; 



WRTTrfBAnT8K»ia.Af*iM 



rewindcbadiskd; 
jisi; 

SnRTCOUTSORT.» IMLUN30RT*0»Hl>C.MP«10i»600Q)? 

reportbadisk; 



END xotog; 
IF sumfiletog 



THEN 



BEGIN 

IF DRUMTQG THEN BEGIN Rf rt IiND ( 6UM ) i HEADC iJUM LnQ n ; END; 

FHH J8 = 3-RrAl CnRiiMTflG) STL'I^ 1 UnTIL » nn GHGUPTnTALSfJ^TM; 



end; 

END sumtog; 

IF TESTHG THFKI 



IF LISTOG 
BEGIN 

I F ETYP E^O 



THEN 

THEN 



TF TAPFTFiiTSyn THFN REPORT APF TP ST t 



BEGIN 

BLANK(L); writedouble; 

MQVr{tO.TFRfc(TNAj MrSSAfiA.I )J 



whitedoubue; 
end; 

L [173> = 1023; ^RITECPBD* ie>LL*l). 



REWlNDtPBD); 
WHIUE TRUE 00 
RFflIN 



READ(PBDiil8,Lt*J); 

IF EOFPBD THEN GO CLt-ANUP; 

IF PAGE IT THEN 



BEGIN 

WRITECLPACPAGE]) 
PRiNTMf ID? 



END ELSE 

IF SINGLESPACt THEN wRl TE CLiPA/l 5, L t » 3 ) ELSE 

IF DOUBLESPACE THEN WRITECLPAC DBLJ M5» LC * ] ) 

WRITE(LPA,15#it*n; 

WRITE(LPA#SPACES*Ln?3); 



BEGIN 

£Nd; 



ELSE 



01231200 
01231300 

Qi2 3uo n 



01231500 
01232D00 

oi233nnn 



01234000 

01235000 

.01 2 36QQ0 



01237000 
01238000 

ni24Qnnn 



01242000 
01243000 

Ol'c'aaooo 



01245000 
01246000 
01247000 



01248000 
01250000 
0l2! } fl0 5 



01250100 

01250150 
Q^2S03nn 



012:30250 
01250300 



01250400 
01250450 
01S50S00 



01250550 
01251000 
01252000 



01252050 
01252100 

ni2522nn 



01253000 
01254000 
Ol2a410Q 



01254200 
01254300 
01254400 



01254500 
01254600 
Q 1 255Q0Q 



01256000 
01257000 
012560QQ 



01259000 
01260000 

ni26tono 



01261010 
01261020 
01261010 



01261040 

01262000 
01263000 



01264000 
01265000 
01166000 



1 1'> 



18 

IS 



..y 



10 

11 



17 
18 
19 



22 



24 



27 



29 
30 



31 
32 



34 
35 



36 

37" 



39 



42 
43 



4fi 



•8 
49 



52 
S3 



S5 



a 



end; 



CULANUP J 



RF>^INLUPHD?,? 



END LISTDGi 



0lii67000 
01^66000 



IF SUMFTLFTnr. THFN RF^j T MDf SUM ) i 



writeclpacpage] )/ 
printmfio ; 
rlankcd; 



Olii?0000 
012^0100 



B0JMESS(L#TlME0,TlME(6)^0AY(-rlMe0),ATlHE(TIMEl), 

LISTQG'SUMTQG^TtSTOa'ONLTOfi); 
WRn£ C lP A [DBL3>l5»LC*nJ 



OliJ/'bOOO 
012?501G 



THEN 



IF ETYPEXO 
BEGIN 

WRTTFf I PArnRi 1 W ^ RTTFf I , PA> 1 . Tl- Kl^ I ^ Aj MF S S Af^ A r * ] ) ; 

end; 

IF lastentRy<nuhentries or maintlog then 

I ASTENTRYiaNljMENTHlE.Sf 



01ii?7000 

01^78000 
01^7^000 



01279100 
012/V200 
01^79 3 



01279400 
01279500 
01^79 6 00 



WRITECLPA^WRAPUP 0l2aU900 

'MFID.C6J6]*MFID*FID.L6»6]*FID 01281000 

" S T A RT"> S TARTDftTt-' .H AY C STAKTU A TE ) * AC tHAT E * A T ( Mf- f S T A RtTMH i {)l? f\ ?Q(}Q .. 



»"ENO "'STOPDArE'DAYCSTOPDATE^^ACTOATE'ATlWECSTOPTIME) 0128 3000 
*NUMtNTRIES#LASTENTRY*SE6S 01284000 

>TH a (T2ts TIMEC2)-PHUCTIME) Div ^ 6 00 . Q 12 85000 

*(T2/6C) - ' 
,THs(T2»* 
>(Tg/ftO) •;- 



T1X60 
TIMEC3)-HjTimL) 



OIV 3600 



»Tll=CT2«« 
*(T2/6C) - 

44 -— 



TIMECU-TIMEIJ 
T1X60 



01286000 
01287000 

nuaaooo 



DIV 3600 



END PASS2; 

% 

% ^TART nF nilTER BinCK %- 



01289000 
012^0000 
01291000 



I! 

initialize; 
startup i 



01293000 
012V4000 
nUViOOQ 



PASSi; 

FIMSHUPJ 

PASSg ; 



GO startup; 



01296000 
01297000 
01298000 
01299000 
OliOOOOO 
Q 13O 1Q00 



FLAGRTTl 



ETYPEt'i; 

GO renter; 

INVAiniNDEX' 



01302000 
01303000 
0^304000 



I:type»»2; 

GO renter; 

INtEfiROVFLWt 



01 JU5000 

01306000 

,01307000 



ETYPE!=3; 

GO renter; 

EXRQNnVFLWt 



01308000 
01309000 
1310000 



£TYPEl*4; 

GO renter; 

DXyBY7FRCll 



01311000 
01312000 
Q131300Q 



ETYPEt=5; 

GO renter; 

ENDOF ILE » — 



01314000 
01315000 
Q131600Q 



ETYPEt'6; 

renter* 

IlwETYPEya; 



01317000 
01318000 
01319000 



01320000 
01321000 
ni32?000 



til 



iJ 



.fe 



>r 



ro 
11 

12 

13" 

14 
IS 



16 
17 
IB 

19 



20 
21 



22 
23 
24 

25 



26 

27 



32 
13 

34 

35 
36 



ALPHAi:=Mfc;5SCl<i + l3; AtPHA*J:=iMfc:^^[ i J+I J; 
WRITE(TERMINALMESSAGAt*]*FTt.HMlNATE/LALPHA); 
WR I T E CSPqi l »tTfcRV II M Al. M £ S ^ A> :, A l *1 ii . 



rfiFt 



If INPASSI THEN 

QO startup; 



GO FINISHUPi 



OlJd3000 
01 J24000 
OtJit^'^OClU 



FINIS « 

END PROGRAM 
ENP;FNnt 



01326000 
01327000 

ni3?Ronn 



LAST CAHn ON OCHQTN<J TAPf 



01329000 
01330000 
999V99gg 



17: 

Id 




39 

40 

I ♦! 
42 

♦3" 

I 44 

ts 

«6 
I »7 

•8 

t3~' 
I 50 

51 

52 
I 53 

54 

56 
I 56 

5Z. 



'i3 
.14 
■15 



II, 
19 
in 



53 
5B 



LABEL OOOOOOOOOPRlNTEKOOUblOOCC LX Qij JEC r /HEaU; F ILF. SOURCEF lLE»SYMBOL/^^LaGAN*-«-0UOO0OO 



OBJECT /READ 




